From 220939e6fe5e4dc50b0921e74e7b08bf1f26aa37 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 11 May 2003 17:50:49 +0000
Subject: [PATCH] Use test.pl.

p4raw-id: //depot/perl@19491
---
 t/io/fflush.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/t/io/fflush.t b/t/io/fflush.t
index eab9a01..19143c6 100644
--- 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");
-- 
2.7.4