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.