This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In bisect-runner.pl, refactor the calls to system @ARGV into a function.
authorNicholas Clark <nick@ccl4.org>
Tue, 31 Jul 2012 10:59:42 +0000 (12:59 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 28 May 2013 07:19:29 +0000 (09:19 +0200)
This will permit the addition of timeouts when running the test user's case.

Porting/bisect-runner.pl

index 7253f3c..e01794b 100755 (executable)
@@ -982,6 +982,11 @@ sub report_and_exit {
     exit($got eq 'bad');
 }
 
+sub run_report_and_exit {
+    my $ret = system @_;
+    report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@_");
+}
+
 sub match_and_exit {
     my ($target, @globs) = @_;
     my $matches = 0;
@@ -1167,8 +1172,7 @@ if ($target =~ /config\.s?h/) {
 
     skip("could not build $target") unless -f $target;
 
-    my $ret = system @ARGV;
-    report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
+    run_report_and_exit(@ARGV);
 } elsif (!-f 'config.sh') {
     # Skip if something went wrong with Configure
 
@@ -1289,9 +1293,7 @@ if (exists $Config{ldlibpthname}) {
     }
 }
 
-my $ret = system @ARGV;
-
-report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
+run_report_and_exit(@ARGV);
 
 ############################################################################
 #