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 @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