[perl #8262] //g loops infinitely on tainted data

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

diff --git a/t/io/fflush.t b/t/io/fflush.t
index eab9a01..19143c6 100644 (file)
--- a/t/io/fflush.t
+++ b/t/io/fflush.t
@@ -3,6 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
 # Script to test auto flush on fork/exec/system/qx.  The idea is to
@@ -132,7 +133,11 @@ for (qw(system qx popen)) {
     ++$t;
 }
 
-my $cmd = qq[$runperl -e "print qq[ok \$_\\n] for ($t..$t+2)"];
+my $cmd = _create_runperl(
+                         switches => ['-l'],
+                         prog =>
+                         sprintf('print qq[ok $_] for (%d..%d)', $t, $t+2));
+print "# cmd = '$cmd'\n";
 open my $CMD, "$cmd |" or die "Can't open pipe to '$cmd': $!";
 while (<$CMD>) {
     system("$runperl -e 0");