Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/LIB/FileUtils.pm – Rev 3859 → 4265



    $here = $Cwd unless ( defined $here );
    my @base = split ('/', $base );
    my @here = split ('/', $here );
    my $result;
 
    Debug("RelPath: Here  : $here");
    Debug("RelPath: Source: $base");
 
    return $base unless ( $base =~ m~^/~ );
    
    #

Rev 3859	Rev 4265
Line 379...	Line 379...
379	`$here = $Cwd unless ( defined $here );`	379	`$here = $Cwd unless ( defined $here );`
380	`my @base = split ('/', $base );`	380	`my @base = split ('/', $base );`
381	`my @here = split ('/', $here );`	381	`my @here = split ('/', $here );`
382	`my $result;`	382	`my $result;`
383		383
-		384	`Debug("RelPath: Here : $here");`
384	`Debug("RelPath: Source: $base");`	385	`Debug("RelPath: Source: $base");`
385		386
386	`return $base unless ( $base =~ m~^/~ );`	387	`return $base unless ( $base =~ m~^/~ );`
387		388
388	`#`	389	`#`