Changeset 23464 for test-collections

Timestamp:

2010-12-13T16:12:56+13:00 (13 years ago)

Author:

davidb

Message:

Further debugging output for working with Windows files

File:

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

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

@@ -1 +1 @@
 #!/usr/bin/perl -w
 
-use strict;
 
+use Encode;
 
 sub debug_unicode_string
@@ -31 +31 @@
 close(DIN);
 
-#open(FOUT,">file-list.txt")
-#    || die "Unable to open file-list.txt";
-
 foreach my $f (@files) 
 {
@@ -41 +38 @@
     my $dirsep = ($^O =~ /mswin/i) ? "\\" : "/";
 
-    # Remove trailing directory separator
-    # (will be explicitly added in later on)
     $f =~ s@$dirsep$@@;
 
-    if ( -e "$dir$dirsep$f" ) {
-    print "   Perl can see file $dir$dirsep$f\n";
+    my $full_f = "$dir$dirsep$f";
+    if ($^O =~ /mswin/i) {
+    require Win32;
+    $full_f = Win32::GetLongPathName($full_f);
+    #$full_f = encode("UTF8",$full_f);
+    print "Windows full filename:       ", $full_f,"\n";
+    print "Windows full filename debug: ", debug_unicode_string($full_f),"\n";
+
+    $full_f = Win32::GetShortPathName($full_f);
+    }
+
+    if ( -e $full_f ) {
+    print "   Perl can see file $full_f\n";
     }
     else {
-    print "   Perl CANNOT see $dir$dirsep$f\n";
+    print "   Perl CANNOT see $full_f\n";
     }
-#    print FOUT "$f\n";
 }
 
-#close(FOUT);
+