In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2dcf63953dd1d0578e22a4f2764bc8e4b654e555?hp=416c06fc852c00a948ade2fd39e7bf1b9f00ca9d>
- Log ----------------------------------------------------------------- commit 2dcf63953dd1d0578e22a4f2764bc8e4b654e555 Author: Steve Hay <[email protected]> Date: Sat May 9 14:49:11 2015 +0100 Do not use bareword TERM or KILL in kill() call in test watchdog process ----------------------------------------------------------------------- Summary of changes: 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)) { -- Perl5 Master Repository
