This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For-non-perlio places we need STDOUT back.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 14 Sep 2003 13:40:23 +0000 (13:40 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 14 Sep 2003 13:40:23 +0000 (13:40 +0000)
p4raw-id: //depot/perl@21228

t/io/dup.t

index 9768800..91e4f26 100755 (executable)
@@ -84,6 +84,9 @@ if ($Config{useperlio}) {
     close(F);
 }
 
+# To get STDOUT back.
+open(F, ">&DUPOUT") or die "Cannot dup stdout back: $!";
+
 curr_test(13);
 
 SKIP: {