Subversion Repositories DevTools

Rev

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

Rev 7304 Rev 7312
Line 699... Line 699...
699 
    my @result;
 699 
    my @result;
700 
    Debug("CleanPath: Source: $dpath");
 700 
    Debug("CleanPath: Source: $dpath");
701 
 
 701 
 
702 
    #
 702 
    #
703 
    #   Cleanup the the user input. Remove double delimiters and ensure there
 703 
    #   Cleanup the the user input. Remove double delimiters and ensure there
704 
    #   is no trailing delemiter
 704 
    #   is no trailing delimiter
705 
    #
 705 
    #
- 
 
 706 
    $dpath =~ s~\\~/~g;
706 
    $dpath =~ s~/+~/~g;
 707 
    $dpath =~ s~/+~/~g;
707 
    $dpath =~ s~/$~~g;
 708 
    $dpath =~ s~/$~~g;
708 
    $dpath =~ s~/\./~/~g;
 709 
    $dpath =~ s~/\./~/~g;
709 
 
 710 
 
710 
    #
 711 
    #