From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 23 Jul 2008 12:19:36 +0000 (-0400)
Subject: watchdog() fix for MSWin32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d4a14fe014e68c025e5bc1de990575528c46d6f;p=p5sagit%2Fp5-mst-13.2.git

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