This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handy script for when one forgets to "dmake clean"
[perl5.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 @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