X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fdistclean.bat;h=18b94b0cec1941f47df8f8f0b6085a01b7dc5097;hb=1e89acdfb3de39e92ce0b33062221d82e21cb1e2;hp=e202eab5d9821dad9232a7b5ee61f88704058be0;hpb=41510af71ad35c1639c7891738bee9ab5c19275f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/distclean.bat b/win32/distclean.bat
index e202eab..18b94b0 100755
--- a/win32/distclean.bat
+++ b/win32/distclean.bat
@@ -6,14 +6,20 @@ 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";
+   # print "new $name\n";
    push(@dead,$name);
   } 
 },'.');