From 2dcf63953dd1d0578e22a4f2764bc8e4b654e555 Mon Sep 17 00:00:00 2001
From: Steve Hay <steve.m.hay@googlemail.com>
Date: Sat, 9 May 2015 14:49:11 +0100
Subject: [PATCH] Do not use bareword TERM or KILL in kill() call in test
 watchdog process

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

diff --git a/t/test.pl b/t/test.pl
index ef33e88..7063506 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -1591,7 +1591,7 @@ sub watchdog ($;$)
                 my $sig = $is_vms ? 'TERM' : 'KILL';
                 my $cmd = _create_runperl( prog =>  "sleep($timeout);" .
                                                     "warn qq/# $timeout_msg" . '\n/;' .
-                                                    "kill($sig, $pid_to_kill);");
+                                                    "kill(q/$sig/, $pid_to_kill);");
                 $watchdog = system(1, $cmd);
             };
             if ($@ || ($watchdog <= 0)) {
-- 
1.8.3.1