From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 14 Sep 2003 13:40:23 +0000 (+0000)
Subject: For-non-perlio places we need STDOUT back.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=939b405b43945897061181f7ed38df50aec8b511;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: {