diff options
Diffstat (limited to 'win32/distclean.bat')
-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); |