diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-11-01 20:48:30 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-11-01 22:22:57 +0100 |
commit | 3f14869bb44746c853564775631134b778f620d2 (patch) | |
tree | e78b71d90622fe7c7a7e0e08093f77a6c161819c /Porting/bisect.pl | |
parent | bfa52998a606e560121feb2d3ecadfb47ef08af0 (diff) | |
download | perl-3f14869bb44746c853564775631134b778f620d2.tar.gz |
In bisect.pl, use --start and --end to give ranges to --validate
This allows the user to specify a subset of revisions to test build.
Diffstat (limited to 'Porting/bisect.pl')
-rwxr-xr-x | Porting/bisect.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Porting/bisect.pl b/Porting/bisect.pl index 8a6b5df736..d49223d047 100755 --- a/Porting/bisect.pl +++ b/Porting/bisect.pl @@ -49,6 +49,14 @@ die "This checkout is not clean - $modified modified or untracked file(s)" sub validate { my $commit = shift; + if (defined $start && `git rev-list -n1 $commit ^$start^` eq "") { + print "Skipping $commit, as it is earlier than $start\n"; + return; + } + if (defined $end && `git rev-list -n1 $end ^$commit^` eq "") { + print "Skipping $commit, as it is more recent than $end\n"; + return; + } print "Testing $commit...\n"; system "git checkout $commit </dev/null" and die; my $ret = system $^X, $runner, '--no-clean', @ARGV; |