This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4/amigaos.c: Use memzero, not memset(0)
[perl5.git] / win32 / distclean.bat
... / ...
CommitLineData
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 %files;
10foreach (keys %$files)
11 {
12 $files{lc($_)} = $files->{$_};
13 }
14
15my @dead;
16find(sub {
17 return if -d $_;
18 my $name = $File::Find::name;
19 $name =~ s#^\./##;
20 unless (exists $files{lc($name)})
21 {
22 # print "new $name\n";
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