RE: How to load a "loadable object" that has a non-default file extension ?
[perl.git] / win32 / distclean.bat
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 %files;
10 foreach (keys %$files)
11  {
12   $files{lc($_)} = $files->{$_};
13  } 
14
15 my @dead;
16 find(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
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