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

p4raw-id: //depot/perlio@10728

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/File/Find/find.t b/lib/File/Find/find.t
index cf1b1f8599..cdd9290770 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();