From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 21 Dec 2000 22:11:50 +0000 (+0000)
Subject: Handy script for when one forgets to "dmake clean"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41510af71ad35c1639c7891738bee9ab5c19275f;p=p5sagit%2Fp5-mst-13.2.git

Handy script for when one forgets to "dmake clean"

p4raw-id: //depot/perlio@8226
---

diff --git a/MANIFEST b/MANIFEST
index 49f6e34..1bf4b4a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1762,6 +1762,7 @@ win32/config_H.vc	Win32 config header (Visual C++ build)
 win32/config_h.PL	Perl code to convert Win32 config.sh to config.h
 win32/config_sh.PL	Perl code to update Win32 config.sh from Makefile
 win32/des_fcrypt.patch	Win32 port
+win32/distclean.bat	Remove _ALL_ files not listed here in MANIFEST
 win32/dl_win32.xs	Win32 port
 win32/genmk95.pl        Perl code to generate command.com-usable makefile.95
 win32/include/arpa/inet.h	Win32 port
diff --git a/win32/distclean.bat b/win32/distclean.bat
new file mode 100755
index 0000000..e202eab
--- /dev/null
+++ b/win32/distclean.bat
@@ -0,0 +1,30 @@
+@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 @dead;
+find(sub { 
+return if -d $_;
+my $name = $File::Find::name;
+$name =~ s#^\./##;
+ unless (exists $files->{$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
\ No newline at end of file