4 BEGIN { push(@INC,'lib') }
7 use ExtUtils::Manifest qw(maniread);
8 my $files = maniread();
12 my $name = $File::Find::name;
14 unless (exists $files->{$name})
21 foreach my $file (@dead)
23 chmod(0666,$file) unless -w $file;
24 unlink($file) || warn "Cannot delete $file:$!";