Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/LIB/FileUtils.pm – Rev 229 → 245



 
    #
    #   Cleanup the the user input. Remove double delimiters and ensure there
    #   is no trailing delemiter
    #
    $dpath =~ s~/+~/~g;
    $dpath =~ s~/$~~g;
 
    #
    #   Walk the bits and remove "xxx/.." directories
    #

Rev 229	Rev 245
Line 439...	Line 439...
439		439
440	`#`	440	`#`
441	`# Cleanup the the user input. Remove double delimiters and ensure there`	441	`# Cleanup the the user input. Remove double delimiters and ensure there`
442	`# is no trailing delemiter`	442	`# is no trailing delemiter`
443	`#`	443	`#`
444	`$dpath =~ s~//~/~g;`	444	`$dpath =~ s~/+~/~g;`
445	`$dpath =~ s~/$~~g;`	445	`$dpath =~ s~/$~~g;`
446		446
447	`#`	447	`#`
448	`# Walk the bits and remove "xxx/.." directories`	448	`# Walk the bits and remove "xxx/.." directories`
449	`#`	449	`#`