Commit | Line | Data |
---|---|---|
41510af7 NIS |
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(); | |
55bb78da NIS |
9 | my %files; |
10 | foreach (keys %$files) | |
11 | { | |
12 | $files{lc($_)} = $files->{$_}; | |
13 | } | |
14 | ||
41510af7 NIS |
15 | my @dead; |
16 | find(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 | ||
27 | foreach 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 | |
35 | del perl.exe | |
36 | del perl*.dll |