$#a>>=1 relies on malloc wrap to avoid the segfault, so need to

[p5sagit/p5-mst-13.2.git] / t / io / dup.t

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