increase sleep to compensate for slow cpu (from Peter Haworth

<pmh@edison.ioppublishing.com>)

p4raw-id: //depot/perl@5348

diff --git a/t/io/pipe.t b/t/io/pipe.t
index ae890c0..997c6bf 100755 (executable)
--- a/t/io/pipe.t
+++ b/t/io/pipe.t
@@ -98,7 +98,7 @@ if ($Config{d_sfio} || $^O eq 'machten' || $^O eq 'beos' || $^O eq 'posix-bc') {
 else {
     local $SIG{PIPE} = 'IGNORE';
     open NIL, '|true'  or die "open failed: $!";
-    sleep 2;
+    sleep 4;
     print NIL 'foo'    or die "print failed: $!";
     if (close NIL) {
        print "not ok 9\n";