Commit | Line | Data |
41510af7 |
1 | @perl -w -Sx %0 %* |
2 | @goto end_of_perl |
3 | #!perl -w |
4 | BEGIN { push(@INC,'lib') } |
5 | use strict; |
6 | use File::Find; |
7 | use ExtUtils::Manifest qw(maniread); |
8 | my $files = maniread(); |
9 | my @dead; |
10 | find(sub { |
11 | return if -d $_; |
12 | my $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 | |
21 | foreach 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 |
29 | del perl.exe |
30 | del perl*.dll |