Change 34154 by [EMAIL PROTECTED] on 2008/07/23 16:33:21
Subject: [PATCH] watchdog() fix for MSWin32
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Wed, 23 Jul 2008 12:19:36 -0400
Message-ID: <[EMAIL PROTECTED]>
Adds a needed diag message to the watchdog() function for MSWin32.
Affected files ...
... //depot/perl/t/test.pl#84 edit
Differences ...
==== //depot/perl/t/test.pl#84 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#83~34152~ 2008-07-22 01:19:11.000000000 -0700
+++ perl/t/test.pl 2008-07-23 09:33:21.000000000 -0700
@@ -818,6 +818,7 @@
};
$watchdog = system(1, which_perl(), '-e',
"sleep($timeout);" .
+ "warn('#
$timeout_msg\n');" .
"kill('KILL',
$pid_to_kill);");
};
if ($@ || ($watchdog <= 0)) {
End of Patch.
