X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fopenpid.t;h=ee4702cb8fc52295ec6d0422cd4759bb9e263e1b;hb=021f53de09926928546378b3552f9240c9241dde;hp=23d75ef074d69e334369ce609079ccf2eefab68c;hpb=0c52c6a9db5934c6cadc50a4a66634da7bea4268;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/openpid.t b/t/io/openpid.t
old mode 100755
new mode 100644
index 23d75ef..ee4702c
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -13,12 +13,12 @@ BEGIN {
     require './test.pl';
 }
 
-if ($^O eq 'dos' || $^O eq 'MacOS') {
+if ($^O eq 'dos') {
     skip_all("no multitasking");
 }
 
 plan tests => 10;
-
+watchdog(15);
 
 use Config;
 $| = 1;
@@ -45,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";