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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
#!/usr/bin/perl -w
use strict;
use Getopt::Long;
my @targets = qw(miniperl lib/Config.pm perl test_prep);
my $target = 'test_prep';
my $j = '9';
my $test_should_pass = 1;
my $clean = 1;
my $one_liner;
sub usage {
die "$0: [--target=...] [-j=4] [--expect-pass=0|1] thing to test";
}
unless(GetOptions('target=s' => \$target,
'jobs|j=i' => \$j,
'expect-pass=i' => \$test_should_pass,
'expect-fail' => sub { $test_should_pass = 0; },
'clean!' => \$clean, # mostly for debugging this
'one-liner|e=s' => \$one_liner,
)) {
usage();
}
my $exe = $target eq 'perl' || $target eq 'test_prep' ? 'perl' : 'miniperl';
my $expected = $target eq 'test_prep' ? 'perl' : $target;
unshift @ARGV, "./$exe", '-Ilib', '-e', $one_liner if defined $one_liner;
usage() unless @ARGV;
die "$0: Can't build $target" unless grep {@targets} $target;
$j = "-j$j" if $j =~ /\A\d+\z/;
sub extract_from_file {
my ($file, $rx, $default) = @_;
open my $fh, '<', $file or die "Can't open $file: $!";
while (<$fh>) {
my @got = $_ =~ $rx;
return wantarray ? @got : $got[0]
if @got;
}
return $default if defined $default;
return;
}
sub clean {
if ($clean) {
# Needed, because files that are build products in this checked out
# version might be in git in the next desired version.
system 'git clean -dxf';
# Needed, because at some revisions the build alters checked out files.
# (eg pod/perlapi.pod). Also undoes any changes to makedepend.SH
system 'git reset --hard HEAD';
}
}
sub skip {
my $reason = shift;
clean();
warn "skipping - $reason";
exit 125;
}
sub report_and_exit {
my ($ret, $pass, $fail, $desc) = @_;
clean();
my $got = ($test_should_pass ? !$ret : $ret) ? 'good' : 'bad';
if ($ret) {
print "$got - $fail $desc\n";
} else {
print "$got - $pass $desc\n";
}
exit($got eq 'bad');
}
# Not going to assume that system perl is yet new enough to have autodie
system 'git clean -dxf' and die;
# There was a bug in makedepend.SH which was fixed in version 96a8704c.
# Symptom was './makedepend: 1: Syntax error: Unterminated quoted string'
# Remove this if you're actually bisecting a problem related to makedepend.SH
system 'git show blead:makedepend.SH > makedepend.SH' and die;
my @paths = qw(/usr/local/lib64 /lib64 /usr/lib64);
# if Encode is not needed for the test, you can speed up the bisect by
# excluding it from the runs with -Dnoextensions=Encode
# ccache is an easy win. Remove it if it causes problems.
my @ARGS = ('-des', '-Dusedevel', '-Doptimize=-g', '-Dcc=ccache gcc',
'-Dld=gcc', "-Dlibpth=@paths");
# Commit 1cfa4ec74d4933da adds ignore_versioned_solibs to Configure, and sets it
# to true in hints/linux.sh
# On dromedary, from that point on, Configure (by default) fails to find any
# libraries, because it scans /usr/local/lib /lib /usr/lib, which only contain
# versioned libraries. Without -lm, the build fails.
# Telling /usr/local/lib64 /lib64 /usr/lib64 works from that commit onwards,
# until commit faae14e6e968e1c0 adds it to the hints.
# However, prior to 1cfa4ec74d4933da telling Configure the truth doesn't work,
# because it will spot versioned libraries, pass them to the compiler, and then
# bail out pretty early on. Configure won't let us override libswanted, but it
# will let us override the entire libs list.
unless (extract_from_file('Configure', 'ignore_versioned_solibs')) {
# Before 1cfa4ec74d4933da, so force the libs list.
my @libs;
# This is the current libswanted list from Configure, less the libs removed
# by current hints/linux.sh
foreach my $lib (qw(sfio socket inet nsl nm ndbm gdbm dbm db malloc dl dld
ld sun m crypt sec util c cposix posix ucb BSD)) {
foreach my $dir (@paths) {
next unless -f "$dir/lib$lib.so";
push @libs, "-l$lib";
last;
}
}
push @ARGS, "-Dlibs=@libs";
}
# </dev/null because it seems that some earlier versions of Configure can
# call commands in a way that now has them reading from stdin (and hanging)
my $pid = fork;
die "Can't fork: $!" unless defined $pid;
if (!$pid) {
open STDIN, '<', '/dev/null';
exec './Configure', @ARGS;
die "Failed to start Configure: $!";
}
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';
# Correct makefile for newer GNU gcc
# Only really needed if you comment out the use of blead's makedepend.SH
{
local $^I = "";
local @ARGV = qw(makefile x2p/makefile);
while (<>) {
print unless /<(?:built-in|command|stdin)/;
}
}
# This changes to PERL_VERSION in 4d8076ea25903dcb in 1999
my $major
= extract_from_file('patchlevel.h',
qr/^#define\s+(?:PERL_VERSION|PATCHLEVEL)\s+(\d+)\s/,
0);
# Parallel build for miniperl is safe
system "make $j miniperl";
if ($target ne 'miniperl') {
# Nearly all parallel build issues fixed by 5.10.0. Untrustworthy before that.
$j = '' unless $major > 10;
if ($target eq 'test_prep') {
if ($major < 8) {
# test-prep was added in 5.004_01, 3e3baf6d63945cb6.
# renamed to test_prep in 2001 in 5fe84fd29acaf55c.
# earlier than that, just make test. It will be fast enough.
$target = extract_from_file('Makefile.SH', qr/^(test[-_]prep):/,
'test');
}
}
system "make $j $target";
}
skip("could not build $target")
if $expected =~ /perl$/ ? !-x $expected : !-r $expected;
# This is what we came here to run:
my $ret = system @ARGV;
report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
# Local variables:
# cperl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# ex: set ts=8 sts=4 sw=4 et:
|
