Subversion Repositories DevTools

Rev

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

Rev 7319 Rev 7320
Line 89... Line 89...
89
                catdir
89
                catdir
90
 
90
 
91
                $ScmPathSep
91
                $ScmPathSep
92
                $ScmDirSep
92
                $ScmDirSep
93
                $Cwd
93
                $Cwd
-
 
94
                $CwdFull
94
                $CwdDrive
95
                $CwdDrive
95
                $ScmHost
96
                $ScmHost
96
            );
97
            );
97
#
98
#
98
# exported package globals go here
99
# exported package globals go here
Line 444... Line 445...
444
        DebugTraceBack ('RelPath');
445
        DebugTraceBack ('RelPath');
445
        Error ("Internal: 'RelPath(). base not defined'");
446
        Error ("Internal: 'RelPath(). base not defined'");
446
    }
447
    }
447
 
448
 
448
    $here = $Cwd unless ( defined $here );
449
    $here = $Cwd unless ( defined $here );
-
 
450
    $here = $CwdDrive . $here if ( $base =~ m~^\w+:/~ && $here !~ m~^\w+:/~);
449
    my @base = split ('/', $base );
451
    my @base = split ('/', $base );
450
    my @here = split ('/', $here );
452
    my @here = split ('/', $here );
451
    my $result;
453
    my $result;
452
 
454
 
453
    Debug("RelPath: Here  : $here");
455
    Debug("RelPath: Here  : $here");
Line 546... Line 548...
546
    }
548
    }
547
 
549
 
548
    #
550
    #
549
    #   Create a nice directory name again.
551
    #   Create a nice directory name again.
550
    #
552
    #
551
    my $absPath = join ( '/', @result );
553
    return join ( '/', @result );
552
    return $absPath;
-
 
553
}
554
}
554
 
555
 
555
#-------------------------------------------------------------------------------
556
#-------------------------------------------------------------------------------
556
# Function        : FullPath
557
# Function        : FullPath
557
#
558
#
Line 592... Line 593...
592
my %TruePathCache;
593
my %TruePathCache;
593
my %DirRead;
594
my %DirRead;
594
sub TruePath
595
sub TruePath
595
{
596
{
596
    my ($path) = @_;
597
    my ($path) = @_;
-
 
598
    Debug("TruePath: $path");
597
    $path =~ tr~\\/~/~s;
599
    $path =~ tr~\\/~/~s;
598
 
600
 
599
    #
601
    #
600
    #   On Unix systems the path is case sensitive to start with
602
    #   On Unix systems the path is case sensitive to start with
601
    #   Can't get it wrong - can't do anything.
603
    #   Can't get it wrong - can't do anything.