Integrate perlio:

[  8226]
Handy script for when one forgets to "dmake clean" 

[  8225]
CRLF platform issue with io/utf8 fix.

p4raw-link: @8226 on //depot/perlio: 41510af71ad35c1639c7891738bee9ab5c19275f
p4raw-link: @8225 on //depot/perlio: 79086a00fceeae7aba98dc19e4dcdc07692dddbf

p4raw-id: //depot/perl@8229

3 files changed, 32 insertions, 1 deletions

diff --git a/MANIFEST b/MANIFEST
index 49f6e34aaf..1bf4b4a6ab 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/t/io/utf8.t b/t/io/utf8.t
index ea19a05dba..04554e7797 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -76,7 +76,7 @@ print "ok 15\n";
 close F;
 
 open F, ">:utf8", 'a' or die $!;
-
+binmode(F);  # we write a "\n" and then tell() - avoid CRLF issues.
 print F $a;
 my $y;
 { my $x = tell(F); 
diff --git a/win32/distclean.bat b/win32/distclean.bat
new file mode 100755
index 0000000000..e202eab5d9
--- /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