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
[perl5.git] / win32 / distclean.bat
CommitLineData
41510af7
NIS
1@perl -w -Sx %0 %*
2@goto end_of_perl
3#!perl -w
4BEGIN { push(@INC,'lib') }
5use strict;
6use File::Find;
7use ExtUtils::Manifest qw(maniread);
8my $files = maniread();
55bb78da
NIS
9my %files;
10foreach (keys %$files)
11 {
12 $files{lc($_)} = $files->{$_};
13 }
14
41510af7
NIS
15my @dead;
16find(sub {
55bb78da
NIS
17 return if -d $_;
18 my $name = $File::Find::name;
19 $name =~ s#^\./##;
20 unless (exists $files{lc($name)})
41510af7 21 {
5d0f3903 22 # print "new $name\n";
41510af7
NIS
23 push(@dead,$name);
24 }
25},'.');
26
27foreach my $file (@dead)
28 {
29 chmod(0666,$file) unless -w $file;
30 unlink($file) || warn "Cannot delete $file:$!";
31 }
32
33__END__
34:end_of_perl
35del perl.exe
36del perl*.dll