Subversion Repositories DevTools

Rev

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

Rev 227 Rev 229
Line 411... Line 411...
411 
# Returns         : Cleaned abs path
 411 
# Returns         : Cleaned abs path
412 
#
 412 
#
413 
sub FullPath
 413 
sub FullPath
414 
{
 414 
{
415 
    my $path = AbsPath (@_ );
 415 
    my $path = AbsPath (@_ );
416 
    $path = $CwdDrive . $path;
 416 
    $path = $CwdDrive . $path unless ( $path =~ m~^\w:~  );
417 
    return $path;
 417 
    return $path;
418 
}
 418 
}
419 
 
 419 
 
420 
#-------------------------------------------------------------------------------
 420 
#-------------------------------------------------------------------------------
421 
# Function        : CleanPath
 421 
# Function        : CleanPath