Subversion Repositories DevTools

Rev

Rev 263 | Rev 285 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 263 Rev 279
Line 93... Line 93...
93 
 
 93 
 
94 
    #
 94 
    #
95 
    #   Needs 2 command line arguments
 95 
    #   Needs 2 command line arguments
96 
    #
 96 
    #
97 
    $::ScmRoot    = StripDrive( ${ARGV[0]} );
 97 
    $::ScmRoot    = StripDrive( ${ARGV[0]} );
- 
 
 98 
    $::ScmRoot    = '/./' if ( $::ScmRoot eq '/'  );    # Prevent leading '//'
98 
    $::ProjectBase= $::ScmRoot;
 99 
    $::ProjectBase= $::ScmRoot;
99 
    $::ScmMakelib = ${ARGV[1]};
 100 
    $::ScmMakelib = ${ARGV[1]};
100 
 
 101 
 
101 
    Debug( "ARGV:      @ARGV" );
 102 
    Debug( "ARGV:      @ARGV" );
102 
    Debug( "Root:      $::ScmRoot" );
 103 
    Debug( "Root:      $::ScmRoot" );