Put a watchdog on openpid.t: it has been found to hang in some Win32 smokes.

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

diff --git a/t/io/openpid.t b/t/io/openpid.t
old mode 100755 (executable)
new mode 100644 (file)
index 3b0ac6b..ee4702c
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -18,11 +18,12 @@ if ($^O eq 'dos') {
 }
 
 plan tests => 10;
-
+watchdog(15);
 
 use Config;
 $| = 1;
 $SIG{PIPE} = 'IGNORE';
+$SIG{HUP} = 'IGNORE' if $^O eq 'interix';
 
 my $perl = which_perl();
 $perl .= qq[ "-I../lib"];
@@ -44,7 +45,10 @@ $cmd4 = qq/$perl -e "print scalar <>;"/;
 # start the processes
 ok( $pid1 = open(FH1, "$cmd1 |"), 'first process started');
 ok( $pid2 = open(FH2, "$cmd2 |"), '    second' );
-ok( $pid3 = open(FH3, "| $cmd3"), '    third'  );
+{
+    no warnings 'once';
+    ok( $pid3 = open(FH3, "| $cmd3"), '    third'  );
+}
 ok( $pid4 = open(FH4, "| $cmd4"), '    fourth' );
 
 print "# pids were $pid1, $pid2, $pid3, $pid4\n";