watchdog() fix for MSWin32

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807230919p355ea37ci3fde2c1f84df6d5f@mail.gmail.com>

Adds a needed diag message to the watchdog() function for MSWin32.

p4raw-id: //depot/perl@34154

diff --git a/t/test.pl b/t/test.pl
index 75f7a1e..3aeb843 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -818,6 +818,7 @@ sub watchdog ($)
                 };
                 $watchdog = system(1, which_perl(), '-e',
                                                     "sleep($timeout);" .
+                                                    "warn('# $timeout_msg\n');" .
                                                     "kill('KILL', $pid_to_kill);");
             };
             if ($@ || ($watchdog <= 0)) {