Skip to content

Commit e19d1bb

Browse files
committed
test.pl: Try alarm if can't start watchdog on Win/VMS
Prior to this commit, the code gave up immediately if it tried unsuccessfully to use a watchdog thread. But the alarm method is still available. Drop down to try it.
1 parent ac78c4b commit e19d1bb

File tree

1 file changed

+5
-4
lines changed

1 file changed

+5
-4
lines changed

t/test.pl

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1947,11 +1947,12 @@ ($;$)
19471947
$watchdog = system(1, $cmd);
19481948
}
19491949
};
1950-
if ($@ || ($watchdog <= 0)) {
1951-
_diag('Failed to start watchdog');
1952-
_diag($@) if $@;
1950+
1951+
if ($@ || $watchdog <= 0) {
1952+
$@ = "\n$@" if $@;
1953+
_diag("Failed to start watchdog$@\nTrying alternate method");
19531954
undef($watchdog);
1954-
return;
1955+
goto WATCHDOG_VIA_ALARM;
19551956
}
19561957

19571958
# Add END block to parent to terminate and clean up watchdog

0 commit comments

Comments
 (0)