From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 21 Apr 2002 08:43:48 +0000 (+0000)
Subject: Integrate mainline
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63b38b604ef39ee14b693bccd8b54d416e832d2c;p=p5sagit%2Fp5-mst-13.2.git

Integrate mainline

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

63b38b604ef39ee14b693bccd8b54d416e832d2c
diff --cc ext/Encode/t/perlio.t
index 671be8a,52a161b..2efd4a8
--- a/ext/Encode/t/perlio.t
+++ b/ext/Encode/t/perlio.t
@@@ -56,16 -58,12 +58,12 @@@ for my $e (qw/euc-jp shiftjis 7bit-jis 
      my $pfile = File::Spec->catfile($dir,"$$.pio");
  
      # first create a file without perlio
-     open $fh, ">", $sfile or die "$sfile :$!";
-     binmode $fh;
-     print $fh &encode($e, $utext, 0);
-     close $fh;
+     dump2file($sfile, &encode($e, $utext, 0));
 -    
 +
      # then create a file via perlio without autoflush
  	
- # TODO:{
- #        local $TODO = "perlio broken";
- #	todo_skip "$e: !perlio_ok", 1  unless perlio_ok($e);
+  SKIP:{
+ 	skip "$e: !perlio_ok", 1  unless perlio_ok($e) or $DEBUG;
  	open $fh, ">:encoding($e)", $pfile or die "$sfile : $!";
  	$fh->autoflush(0);
  	print $fh $utext;