[PATCH] t/io/binmode.t

The new t/io/binmode.t fails on perls build without perlio. This fixes it.
Smoke testing found this one :-)
Also, I think that the last two STDERRs were meant to be STDOUTs.

Nicholas Clark

--- t/io/binmode.t.orig	Sat Aug 25 16:59:20 2001
+++ t/io/binmode.t	Sun Aug 26 11:51:54 2001
@@ -5,16 +5,24 @@
     @INC = '../lib';
 }
 
-
 use Test::More tests => 8;
+use Config;
 
 ok( binmode(STDERR),            'STDERR made binary' );
-ok( binmode(STDERR, ":unix"),   '  with unix discipline' );
+if ($Config{useperlio}) {
+  ok( binmode(STDERR, ":unix"),   '  with unix discipline' );
+} else {
+  ok(1,   '  skip unix discipline for -Uuseperlio' );
+}
 ok( binmode(STDERR, ":raw"),    '  raw' );
 ok( binmode(STDERR, ":crlf"),   '  and crlf' );
 
 # If this one fails, we're in trouble.  So we just bail out.
 ok( binmode(STDOUT),            'STDOUT made binary' )      || exit(1);
-ok( binmode(STDOUT, ":unix"),   '  with unix discipline' );
-ok( binmode(STDERR, ":raw"),    '  raw' );
-ok( binmode(STDERR, ":crlf"),   '  and crlf' );
+if ($Config{useperlio}) {
+  ok( binmode(STDOUT, ":unix"),   '  with unix discipline' );
+} else {
+  ok(1,   '  skip unix discipline for -Uuseperlio' );
+}
+ok( binmode(STDOUT, ":raw"),    '  raw' );
+ok( binmode(STDOUT, ":crlf"),   '  and crlf' );

• [PATCH] t/io/binmode.t by Nicholas Clark
• Re: [PATCH] t/io/binmode.t by Michael G Schwern