From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Tue, 19 Jun 2001 18:24:53 +0000 (+0000)
Subject: Hack File/Find/find.t to use File::Spec::Unix on Win32.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d0f390387801a9d64f5847c6ea27f18454bd071;p=p5sagit%2Fp5-mst-13.2.git

Hack File/Find/find.t to use File::Spec::Unix on Win32.

p4raw-id: //depot/perlio@10728
---

diff --git a/lib/File/Find/find.t b/lib/File/Find/find.t
index cf1b1f8..cdd9290 100755
--- a/lib/File/Find/find.t
+++ b/lib/File/Find/find.t
@@ -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();
 
diff --git a/win32/distclean.bat b/win32/distclean.bat
index e202eab..f99b92e 100755
--- a/win32/distclean.bat
+++ b/win32/distclean.bat
@@ -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);
   } 
 },'.');