Change 11349 by jhi@alpha on 2001/07/13 11:54:10
Integrate perlio.
Affected files ...
... //depot/perl/win32/distclean.bat#3 integrate
Differences ...
==== //depot/perl/win32/distclean.bat#3 (xtext) ====
Index: perl/win32/distclean.bat
--- perl/win32/distclean.bat.~1~ Fri Jul 13 06:00:06 2001
+++ perl/win32/distclean.bat Fri Jul 13 06:00:06 2001
@@ -6,12 +6,18 @@
use File::Find;
use ExtUtils::Manifest qw(maniread);
my $files = maniread();
+my %files;
+foreach (keys %$files)
+ {
+ $files{lc($_)} = $files->{$_};
+ }
+
my @dead;
find(sub {
-return if -d $_;
-my $name = $File::Find::name;
-$name =~ s#^\./##;
- unless (exists $files->{$name})
+ return if -d $_;
+ my $name = $File::Find::name;
+ $name =~ s#^\./##;
+ unless (exists $files{lc($name)})
{
# print "new $name\n";
push(@dead,$name);
End of Patch.
