summaryrefslogtreecommitdiff
path: root/t/io
diff options
context:
space:
mode:
authorGeorge Greer <perl@greerga.m-l.org>2010-07-04 01:20:53 -0400
committerRafael Garcia-Suarez <rgs@consttype.org>2010-07-04 13:28:13 +0200
commit5732108f035c123424964e9a1a8850d4c1033102 (patch)
tree7865b6d8ea2a4b8993897550b4651de95f618380 /t/io
parent897340598920cdabb9c0638e4c3d777bf424ad97 (diff)
downloadperl-5732108f035c123424964e9a1a8850d4c1033102.tar.gz
Force t/io/openpid.t to use the alarm() watchdog strategy.
* The default watchdog strategy on Win32 doesn't work because the watchdog is executed via subshell ("cmd /c perl -e '...'"). When the test finishes and tries to kill the watchdog all it manages to do is whack cmd.exe and the watchdog still fires, potentially killing an innocent process. * Trying to use the fork() strategy instead causes openpid.t's test #9's "ok" to be lost occasionally. The message itself is generated by the 4th child of the test and should go directly to stdout, but sometimes the output vanishes for unexplained reasons. This doesn't appear to happen without the watchdog enabled. * Using the alarm() watchdog strategy seems to not cause any badness.
Diffstat (limited to 't/io')
-rwxr-xr-x[-rw-r--r--]t/io/openpid.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/openpid.t b/t/io/openpid.t
index ee4702cb8f..0e814d5c20 100644..100755
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -18,7 +18,7 @@ if ($^O eq 'dos') {
}
plan tests => 10;
-watchdog(15);
+watchdog(15, "alarm");
use Config;
$| = 1;