diff options
author | George Greer <perl@greerga.m-l.org> | 2010-07-04 01:20:53 -0400 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-04 13:28:13 +0200 |
commit | 5732108f035c123424964e9a1a8850d4c1033102 (patch) | |
tree | 7865b6d8ea2a4b8993897550b4651de95f618380 /t/io | |
parent | 897340598920cdabb9c0638e4c3d777bf424ad97 (diff) | |
download | perl-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.t | 2 |
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; |