Subversion Repositories DevTools

Rev

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

Rev 2449 Rev 3830
Line 438... Line 438...
438 
    #           /aaa/aa/aa
 438 
    #           /aaa/aa/aa
439 
    #       or  c:/aaa/aa/aa
 439 
    #       or  c:/aaa/aa/aa
440 
    #
 440 
    #
441 
    $here = $Cwd unless ( defined $here );
 441 
    $here = $Cwd unless ( defined $here );
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 
    #
447 
    #   Walk the bits and remove ".." directories
 447 
    #   Walk the bits and remove ".." directories
448 
    #       Done by pushing non-.. elements and poping last entry for .. elements.
 448 
    #       Done by pushing non-.. elements and poping last entry for .. elements.