diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-13 11:54:10 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-13 11:54:10 +0000 |
commit | 658bfb8ae046f9ef6ffad2aec86b6b12ecaa61ca (patch) | |
tree | 8501f1c7fd606e9167faddf883d12f1209da3402 | |
parent | 9ba8831b3b2daae9ee9c5fa1535754eb048b8f9b (diff) | |
parent | 55bb78da97697d6bd0ef78d62d418ae23d1eaf2b (diff) | |
download | perl-658bfb8ae046f9ef6ffad2aec86b6b12ecaa61ca.tar.gz |
Integrate perlio:
[ 11346]
Win32/distclean.bat - Down-case all MANIFEST and File::Find results so
to avoid /unicode vs /Unicode issues.
p4raw-link: @11346 on //depot/perlio: 55bb78da97697d6bd0ef78d62d418ae23d1eaf2b
p4raw-id: //depot/perl@11349
-rwxr-xr-x | win32/distclean.bat | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/win32/distclean.bat b/win32/distclean.bat index f99b92e4ff..18b94b0cec 100755 --- a/win32/distclean.bat +++ b/win32/distclean.bat @@ -6,12 +6,18 @@ use strict; 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); |