From 364363242d6bbaa0b9f670ffab5325ead26b32ee Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Mon, 5 Jul 2010 14:50:04 -0400
Subject: [PATCH] Ensure new arg to watchdog() in t/test.pl gets initialized

---
 t/test.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/test.pl b/t/test.pl
index c43c275..2bf429c 100755
--- a/t/test.pl
+++ b/t/test.pl
@@ -812,7 +812,7 @@ WHOA
 sub watchdog ($;$)
 {
     my $timeout = shift;
-    my $method  = shift;
+    my $method  = shift || "";
     my $timeout_msg = 'Test process timed out - terminating';
 
     # Valgrind slows perl way down so give it more time before dying.
-- 
2.7.4