X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Ffs.t;h=ca82689c6fe7320d352fdd644fc43e41b3ccb6e4;hb=1f70e1ea8280242937e42514e140f4e467e09404;hp=53ba21a06f083a8f9f5dfd6c810b2e824ac98255;hpb=f56dede6f0d67b2435681a318bccb04d4f017fbd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/fs.t b/t/io/fs.t
index 53ba21a..ca82689 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -116,8 +116,9 @@ else {
   if (-s "Iofs.tmp" == 5) {print "ok 23\n"} else {print "not ok 23\n"}
   truncate "Iofs.tmp", 0;
   if (-z "Iofs.tmp") {print "ok 24\n"} else {print "not ok 24\n"}
-  `echo helloworld > Iofs.tmp`;
-  open(FH, ">>Iofs.tmp") or die "Can't create Iofs.tmp";
+  open(FH, ">Iofs.tmp") or die "Can't create Iofs.tmp";
+  { select FH; $| = 1; select STDOUT }
+  print FH "helloworld\n";
   truncate FH, 5;
   if (-s "Iofs.tmp" == 5) {print "ok 25\n"} else {print "not ok 25\n"}
   truncate FH, 0;