This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Hack File/Find/find.t to use File::Spec::Unix on Win32.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Tue, 19 Jun 2001 18:24:53 +0000 (18:24 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Tue, 19 Jun 2001 18:24:53 +0000 (18:24 +0000)
p4raw-id: //depot/perlio@10728

lib/File/Find/find.t
win32/distclean.bat

index cf1b1f8..cdd9290 100755 (executable)
@@ -20,6 +20,13 @@ else                   { print "1..78\n";  }
 
 use File::Find;
 use File::Spec;
+if ($^O eq 'MSWin32')
+ {
+  # This is a hack - at present File::Find does not produce native names on Win32
+  # So force File::Spec to use Unix names.
+  require File::Spec::Unix;
+  @File::Spec::ISA = 'File::Spec::Unix';
+ }
 
 cleanup();
 
index e202eab..f99b92e 100755 (executable)
@@ -13,7 +13,7 @@ my $name = $File::Find::name;
 $name =~ s#^\./##;
  unless (exists $files->{$name})
   {
-   print "new $name\n";
+   print "new $name\n";
    push(@dead,$name);
   } 
 },'.');