From dd4e46d75e27ba994dc0527364bc4c4a4a683e36 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 2 Oct 2011 19:31:59 +0200 Subject: [PATCH] Add 'config.sh' as a build target for bisect.pl This allows one to bisect to find which commit caused Configure options to stop/start Configure running to completion. --- Porting/bisect-runner.pl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl index 80c05ff..730e50b 100755 --- a/Porting/bisect-runner.pl +++ b/Porting/bisect-runner.pl @@ -3,7 +3,7 @@ use strict; use Getopt::Long qw(:config bundling no_auto_abbrev); -my @targets = qw(miniperl lib/Config.pm perl test_prep); +my @targets = qw(config.sh miniperl lib/Config.pm perl test_prep); my %options = ( @@ -273,7 +273,7 @@ if ($options{'force-manifest'}) { } } -my @ARGS = '-des'; +my @ARGS = $target eq 'config.sh' ? '-dEs' : '-des'; foreach my $key (sort keys %defines) { my $val = $defines{$key}; if (ref $val) { @@ -320,8 +320,13 @@ if (!$pid) { waitpid $pid, 0 or die "wait for Configure, pid $pid failed: $!"; -# Skip if something went wrong with Configure -skip('no config.sh') unless -f 'config.sh'; +if ($target eq 'config.sh') { + report_and_exit(!-f $target, 'could build', 'could not build', $target); +} elsif (!-f 'config.sh') { + # Skip if something went wrong with Configure + + skip('could not build config.sh'); +} # This is probably way too paranoid: if (@missing) { -- 2.7.4