- Timestamp:
- 2010-11-26T09:43:00+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
test-collections/trunk/filename-encodings/bin/script/dirlist.pl
r23325 r23346 1 1 #!/usr/bin/perl -w 2 3 use strict; 2 4 3 5 … … 39 41 my $dirsep = ($^O =~ /mswin/i) ? "\\" : "/"; 40 42 41 $dirsep =~ s@$dirsep$@@; 43 # Remove trailing directory separator 44 # (will be explicitly added in later on) 45 $f =~ s@$dirsep$@@; 42 46 43 47 if ( -e "$dir$dirsep$f" ) {
Note:
See TracChangeset
for help on using the changeset viewer.