p4raw-id: //depot/perlio@10728
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();
$name =~ s#^\./##;
unless (exists $files->{$name})
{
- print "new $name\n";
+ # print "new $name\n";
push(@dead,$name);
}
},'.');