1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/perl -w
use strict;
my $start_time = time;
# The default, auto_abbrev will treat -e as an abbreviation of --end
# Which isn't what we want.
use Getopt::Long qw(:config pass_through no_auto_abbrev);
my ($start, $end, $validate);
unshift @ARGV, '--help' unless GetOptions('start=s' => \$start,
'end=s' => \$end,
validate => \$validate);
my $runner = $0;
$runner =~ s/bisect\.pl/bisect-runner.pl/;
die "Can't find bisect runner $runner" unless -f $runner;
{
my ($dev0, $ino0) = stat $0;
die "Can't stat $0: $!" unless defined $ino0;
my ($dev1, $ino1) = stat 'Porting/bisect.pl';
die "Can't run a bisect using the directory containing $runner"
if defined $dev1 && $dev0 == $dev1 && $ino0 == $ino1;
}
system $^X, $runner, '--check-args', @ARGV and exit 255;
# We try these in this order for the start revision if none is specified.
my @stable = qw(perl-5.002 perl-5.003 perl-5.004 perl-5.005 perl-5.6.0
perl-5.8.0 v5.10.0 v5.12.0 v5.14.0);
$end = 'blead' unless defined $end;
# Canonicalising branches to revisions before moving the checkout permits one
# to use revisions such as 'HEAD' for --start or --end
foreach ($start, $end) {
next unless $_;
$_ = `git rev-parse $_`;
die unless defined $_;
chomp;
}
my $modified = () = `git ls-files --modified --deleted --others`;
die "This checkout is not clean - $modified modified or untracked file(s)"
if $modified;
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;
die "Runner returned $ret, not 0 for revision $commit" if $ret;
system 'git clean -dxf </dev/null' and die;
system 'git reset --hard HEAD </dev/null' and die;
}
if ($validate) {
validate $_ foreach 'blead', reverse @stable;
exit 0;
}
my $git_version = `git --version`;
if (defined $git_version
&& $git_version =~ /\Agit version (\d+\.\d+\.\d+)(.*)/) {
$git_version = eval "v$1";
} else {
$git_version = v0.0.0;
}
if ($git_version ge v1.6.6) {
system "git bisect reset HEAD" and die;
} else {
system "git bisect reset" and die;
}
# Sanity check the first and last revisions:
system "git checkout $end" and die;
my $ret = system $^X, $runner, @ARGV;
die "Runner returned $ret for end revision" unless $ret;
if (defined $start) {
system "git checkout $start" and die;
my $ret = system $^X, $runner, @ARGV;
die "Runner returned $ret, not 0 for start revision" if $ret;
} else {
# Try to find the earliest version for which the test works
foreach my $try (@stable) {
system "git checkout $try" and die;
my $ret = system $^X, $runner, @ARGV;
if (!$ret) {
$start = $try;
last;
}
}
die "Can't find a suitable start revision to default to. Tried @stable"
unless defined $start;
}
system "git bisect start" and die;
system "git bisect good $start" and die;
system "git bisect bad $end" and die;
# And now get git bisect to do the hard work:
system 'git', 'bisect', 'run', $^X, $runner, @ARGV and die;
END {
my $end_time = time;
printf "That took %d seconds\n", $end_time - $start_time
if defined $start_time;
}
# Local variables:
# cperl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# ex: set ts=8 sts=4 sw=4 et:
|
