From 939b405b43945897061181f7ed38df50aec8b511 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 14 Sep 2003 13:40:23 +0000 Subject: [PATCH] For-non-perlio places we need STDOUT back. p4raw-id: //depot/perl@21228 --- t/io/dup.t | 3 +++ 1 file changed, 3 insertions(+) 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: { -- 2.7.4