In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9b7a5066c959acc331302e11abdc5e60a5cda5b4?hp=c7cffa0b862541c21ec66e4efd2d80e4f0a2f142>
- Log ----------------------------------------------------------------- commit 9b7a5066c959acc331302e11abdc5e60a5cda5b4 Author: Craig A. Berry <[email protected]> Date: Fri Oct 16 10:58:43 2009 -0500 Make the watchdog create a valid command for spawning. It was inserting a newline in the command string, which causes a syntax error (at least on VMS). ----------------------------------------------------------------------- Summary of changes: t/test.pl | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/test.pl b/t/test.pl index 1c1a09d..7d1a90b 100644 --- a/t/test.pl +++ b/t/test.pl @@ -832,10 +832,10 @@ sub watchdog ($) _diag("Watchdog warning: $_[0]"); }; my $sig = $^O eq 'VMS' ? 'TERM' : 'KILL'; - $watchdog = system(1, which_perl(), '-e', - "sleep($timeout);" . - "warn('# $timeout_msg\n');" . + my $cmd = _create_runperl( prog => "sleep($timeout);" . + "warn qq/# $timeout_msg" . '\n/;' . "kill($sig, $pid_to_kill);"); + $watchdog = system(1, $cmd); }; if ($@ || ($watchdog <= 0)) { _diag('Failed to start watchdog'); -- Perl5 Master Repository
