From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 1 Feb 2004 11:26:47 +0000 (+0000)
Subject: Make Time/HiRes/t/HiRes.t die more gracefully if its watchdog
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4c5c611165551aaef8a59a0e287e0f18687668b;p=p5sagit%2Fp5-mst-13.2.git

Make Time/HiRes/t/HiRes.t die more gracefully if its watchdog
timeout triggers

p4raw-id: //depot/perl@22253
---

diff --git a/ext/Time/HiRes/t/HiRes.t b/ext/Time/HiRes/t/HiRes.t
index 5e4128e..6903970 100644
--- a/ext/Time/HiRes/t/HiRes.t
+++ b/ext/Time/HiRes/t/HiRes.t
@@ -42,7 +42,7 @@ if ($have_fork) {
 	if ($pid == 0) { # We are the kid, set up the timer.
 	    print "# Timer process $$\n";
 	    sleep($waitfor);
-	    warn "$0: Time's up!\n";
+	    warn "\n$0: overall time allowed for tests (${waitfor}s) exceeded\n";
 	    print "# Terminating the testing process\n";
 	    kill('TERM', getppid());
 	    print "# Timer process exiting\n";