This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Win32/distclean.bat - Down-case all MANIFEST and File::Find results so
authorNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 13 Jul 2001 09:18:51 +0000 (09:18 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 13 Jul 2001 09:18:51 +0000 (09:18 +0000)
to avoid /unicode vs /Unicode issues.

p4raw-id: //depot/perlio@11346

win32/distclean.bat

index f99b92e..18b94b0 100755 (executable)
@@ -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);