Changeset 23346 for test-collections

Timestamp:

2010-11-26T09:43:00+13:00 (13 years ago)

Author:

davidb

Message:

Mistake in handling last directory separator fixed

File:

• test-collections/trunk/filename-encodings/bin/script/dirlist.pl (modified) (2 diffs)

test-collections/trunk/filename-encodings/bin/script/dirlist.pl

@@ -1 +1 @@
 #!/usr/bin/perl -w
+
+use strict;
 
 
@@ -39 +41 @@
     my $dirsep = ($^O =~ /mswin/i) ? "\\" : "/";
 
-    $dirsep =~ s@$dirsep$@@;
+    # Remove trailing directory separator
+    # (will be explicitly added in later on)
+    $f =~ s@$dirsep$@@;
 
     if ( -e "$dir$dirsep$f" ) {