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 (file)
--- 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";