[svn:parrot] r49678 - trunk/t/pmc

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Mon Oct 25 22:46:24 2010
New Revision: 49678
URL: https://trac.parrot.org/parrot/changeset/49678

Log:
[t] Use three-argument form of perl open

Modified:
   trunk/t/pmc/io_stdin.t

Modified: trunk/t/pmc/io_stdin.t
==============================================================================
--- trunk/t/pmc/io_stdin.t	Mon Oct 25 21:41:01 2010	(r49677)
+++ trunk/t/pmc/io_stdin.t	Mon Oct 25 22:46:24 2010	(r49678)
@@ -46,7 +46,7 @@
     # Slurp and compare the output.
     my $result = do {
         local $/;
-        open(my $in, "./parrot '$code_file' < '$input_file' |")
+        open(my $in, '-|', "./parrot '$code_file' < '$input_file'")
             or die "bug";
         <$in>;
     };