This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
more sleep needed from slow systems (from Peter Haworth)
[perl5.git] / t / io / pipe.t
index 997c6bf..4559624 100755 (executable)
@@ -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 4;
+    sleep 5;
     print NIL 'foo'    or die "print failed: $!";
     if (close NIL) {
        print "not ok 9\n";