diff options
| -rwxr-xr-x | lib/File/Find/find.t | 7 | ||||
| -rwxr-xr-x | win32/distclean.bat | 2 |
2 files changed, 8 insertions, 1 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(); diff --git a/win32/distclean.bat b/win32/distclean.bat index e202eab5d9..f99b92e4ff 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); } },'.'); |