Subversion Repositories DevTools

Rev

Rev 3830 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3830 Rev 3856
Line 375... Line 375...
375 
sub RelPath
 375 
sub RelPath
376 
{
 376 
{
377 
    my ($base, $here) = @_;
 377 
    my ($base, $here) = @_;
378 
 
 378 
 
379 
    $here = $Cwd unless ( defined $here );
 379 
    $here = $Cwd unless ( defined $here );
380 
 
 - 
 
381 
    my @base = split ('/', $base );
 380 
    my @base = split ('/', $base );
382 
    my @here = split ('/', $here );
 381 
    my @here = split ('/', $here );
383 
    my $result;
 382 
    my $result;
384 
 
 383 
 
385 
    Debug("RelPath: Source: $base");
 384 
    Debug("RelPath: Source: $base");
Line 437... Line 436...
437 
    #   An absolute path is:
 436 
    #   An absolute path is:
438 
    #           /aaa/aa/aa
 437 
    #           /aaa/aa/aa
439 
    #       or  c:/aaa/aa/aa
 438 
    #       or  c:/aaa/aa/aa
440 
    #
 439 
    #
441 
    $here = $Cwd unless ( defined $here );
 440 
    $here = $Cwd unless ( defined $here );
- 
 
 441 
    $here =~ s~^\w:~~;
442 
    $dpath = $here . '/' . $dpath
 442 
    $dpath = $here . '/' . $dpath
443 
        unless ( $dpath =~ m~^/|\w:[/\\]~  );
 443 
        unless ( $dpath =~ m~^/|\w:[/\\]~  );
444 
    $dpath =~ s~//~/~g;
 444 
    $dpath =~ s~//~/~g;
445 
 
 445 
 
446 
    #
 446 
    #