watchdog() fix for MSWin32
authorJerry D. Hedden <jdhedden@cpan.org>
Wed, 23 Jul 2008 12:19:36 +0000 (08:19 -0400)
committerSteve Hay <SteveHay@planit.com>
Wed, 23 Jul 2008 16:33:21 +0000 (16:33 +0000)
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

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)) {