This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #122112) remove some interfering debug output
authorTony Cook <tony@develop-help.com>
Tue, 11 Jun 2019 04:59:23 +0000 (14:59 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 11 Jun 2019 04:59:23 +0000 (14:59 +1000)
t/io/pipe.t

index fc30713..9f5bb3b 100644 (file)
@@ -253,7 +253,6 @@ my \$cmd = qq(\$Perl -e "sleep 3");
 my \$pid = open my \$fh, "|\$cmd" or die "\$!\n";
 close \$fh;
 PROG
-    print $prog;
     my $out = fresh_perl($prog, {});
     cmp_ok($out, '!~', qr/refcnt/, "no exception from PerlIO");
     # checks that that program did something rather than failing to