From 38b9fa7b936561e78411c73972df3a6702a4b767 Mon Sep 17 00:00:00 2001 From: Wilson Snyder Date: Wed, 21 Nov 2012 07:09:29 -0500 Subject: [PATCH] driver: Print message when no Parallel::Forker. --- test_regress/driver.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/test_regress/driver.pl b/test_regress/driver.pl index 2902a5140..0aea97c47 100755 --- a/test_regress/driver.pl +++ b/test_regress/driver.pl @@ -21,7 +21,7 @@ use POSIX qw(strftime); $::Driver = 1; -eval "use Parallel::Forker; \$Fork=Parallel::Forker->new(use_sig_child=>1);"; +eval "use Parallel::Forker; \$Fork=Parallel::Forker->new(use_sig_child=>1); \$::Have_Forker=1;"; $Fork = Forker->new(use_sig_child=>1) if !$Fork; $SIG{CHLD} = sub { $Fork->sig_child() if $Fork; }; $SIG{TERM} = sub { $Fork->kill_tree_all('TERM') if $Fork; die "Quitting...\n"; }; @@ -185,7 +185,8 @@ sub one_test { if ($opt_stop) { die "%Error: --stop and errors found\n"; } } $LeftCnt--; - print STDERR "==SUMMARY: Left $LeftCnt Passed $OkCnt Unsup $UnsupCnt Skipped $SkipCnt Failed $FailCnt\n"; + my $LeftMsg = $::Have_Forker ? $LeftCnt : "NO-FORKER"; + print STDERR "==SUMMARY: Left $LeftMsg Passed $OkCnt Unsup $UnsupCnt Skipped $SkipCnt Failed $FailCnt\n"; }, )->ready(); }