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