[win32] Fix for C<sort 'foo'...> bug:

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

diff --git a/t/io/pipe.t b/t/io/pipe.t
index 21f02a7..efeda80 100755 (executable)
--- a/t/io/pipe.t
+++ b/t/io/pipe.t
@@ -62,7 +62,7 @@ sub broken_pipe {
 
 print WRITER "not ok 7\n";
 close WRITER;
-
+sleep 1;
 print "ok 8\n";
 
 # VMS doesn't like spawning subprocesses that are still connected to
@@ -74,9 +74,10 @@ if ($^O eq 'VMS') {
     exit;
 }
 
-if ($Config{d_sfio}) {
+if ($Config{d_sfio} || $^O eq machten) {
     # Sfio doesn't report failure when closing a broken pipe
-    # that has pending output.  Go figure.
+    # that has pending output.  Go figure.  MachTen doesn't either,
+    # but won't write to broken pipes, so nothing's pending at close.
     print "ok 9\n";
 }
 else {