For-non-perlio places we need STDOUT back.

p4raw-id: //depot/perl@21228

diff --git a/t/io/dup.t b/t/io/dup.t
index 9768800..91e4f26 100755 (executable)
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -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: {