From: Brian Fraser <fraserbn@gmail.com>
Date: Wed, 22 Jan 2014 17:23:51 +0000 (-0300)
Subject: t/op/magic.t: Use three-arg open to avooid creating a subshell
X-Git-Tag: upstream/5.20.0~645
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0ef4ffa94de66d76372c1f5c8cc35d3c9dfe6dc9;p=platform%2Fupstream%2Fperl.git

t/op/magic.t: Use three-arg open to avooid creating a subshell
---

diff --git a/t/op/magic.t b/t/op/magic.t
index 75d4ed0..fbd9c9d 100644
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -123,7 +123,7 @@ SKIP: {
     sub FETCH { $next_test + pop }
     tie my @tn, __PACKAGE__;
 
-    open( CMDPIPE, "| $PERL");
+    open( CMDPIPE, "|-", $PERL);
 
     print CMDPIPE "\$t1 = $tn[1]; \$t2 = $tn[2];\n", <<'END';
 
@@ -146,7 +146,7 @@ END
 
     close CMDPIPE;
 
-    open( CMDPIPE, "| $PERL");
+    open( CMDPIPE, "|-", $PERL);
     print CMDPIPE "\$t3 = $tn[3];\n", <<'END';
 
     { package X;
@@ -176,7 +176,7 @@ END
     my $todo = ($^O eq 'os2' ? ' # TODO: EMX v0.9d_fix4 bug: wrong nibble? ' : '');
     print $? & 0xFF ? "ok $tn[4]$todo\n" : "not ok $tn[4]$todo\n";
 
-    open(CMDPIPE, "| $PERL");
+    open(CMDPIPE, "|-", $PERL);
     print CMDPIPE <<'END';
 
     sub PVBM () { 'foo' }