This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
[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();
9my @dead;
10find(sub {
11return if -d $_;
12my $name = $File::Find::name;
13$name =~ s#^\./##;
14 unless (exists $files->{$name})
15 {
16 print "new $name\n";
17 push(@dead,$name);
18 }
19},'.');
20
21foreach my $file (@dead)
22 {
23 chmod(0666,$file) unless -w $file;
24 unlink($file) || warn "Cannot delete $file:$!";
25 }
26
27__END__
28:end_of_perl
29del perl.exe
30del perl*.dll