This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
4126df25f41c3d77bafc8a3b6b1a4e9e2ba16a0e
[perl5.git] / Porting / bisect-runner.pl
1 #!/usr/bin/perl -w
2 use strict;
3
4 use Getopt::Long qw(:config bundling no_auto_abbrev);
5 use Pod::Usage;
6 use Config;
7 use Carp;
8
9 my @targets
10     = qw(config.sh config.h miniperl lib/Config.pm Fcntl perl test_prep);
11
12 my $cpus;
13 if (open my $fh, '<', '/proc/cpuinfo') {
14     while (<$fh>) {
15         ++$cpus if /^processor\s+:\s+\d+$/;
16     }
17 } elsif (-x '/sbin/sysctl') {
18     $cpus = 1 + $1 if `/sbin/sysctl hw.ncpu` =~ /^hw\.ncpu: (\d+)$/;
19 } elsif (-x '/usr/bin/getconf') {
20     $cpus = 1 + $1 if `/usr/bin/getconf _NPROCESSORS_ONLN` =~ /^(\d+)$/;
21 }
22
23 my %options =
24     (
25      jobs => defined $cpus ? $cpus + 1 : 2,
26      'expect-pass' => 1,
27      clean => 1, # mostly for debugging this
28     );
29
30 my $linux64 = `uname -sm` eq "Linux x86_64\n" ? '64' : '';
31
32 my @paths;
33
34 if ($^O eq 'linux') {
35     # This is the search logic for a multi-arch library layout
36     # added to linux.sh in commits 40f026236b9959b7 and dcffd848632af2c7.
37     my $gcc = -x '/usr/bin/gcc' ? '/usr/bin/gcc' : 'gcc';
38
39     foreach (`$gcc -print-search-dirs`) {
40         next unless /^libraries: =(.*)/;
41         foreach (split ':', $1) {
42             next if m/gcc/;
43             next unless -d $_;
44             s!/$!!;
45             push @paths, $_;
46         }
47     }
48 }
49
50 push @paths, map {$_ . $linux64} qw(/usr/local/lib /lib /usr/lib);
51
52 my %defines =
53     (
54      usedevel => '',
55      optimize => '-g',
56      cc => 'ccache cc',
57      ld => 'cc',
58      ($linux64 ? (libpth => \@paths) : ()),
59     );
60
61 unless(GetOptions(\%options,
62                   'target=s', 'jobs|j=i', 'expect-pass=i',
63                   'expect-fail' => sub { $options{'expect-pass'} = 0; },
64                   'clean!', 'one-liner|e=s', 'match=s', 'force-manifest',
65                   'test-build', 'check-args', 'A=s@', 'usage|help|?',
66                   'D=s@' => sub {
67                       my (undef, $val) = @_;
68                       if ($val =~ /\A([^=]+)=(.*)/s) {
69                           $defines{$1} = length $2 ? $2 : "\0";
70                       } else {
71                           $defines{$val} = '';
72                       }
73                   },
74                   'U=s@' => sub {
75                       $defines{$_[1]} = undef;
76                   },
77                  )) {
78     pod2usage(exitval => 255, verbose => 1);
79 }
80
81 my ($target, $j, $match) = @options{qw(target jobs match)};
82
83 pod2usage(exitval => 255, verbose => 1) if $options{usage};
84 pod2usage(exitval => 255, verbose => 1)
85     unless @ARGV || $match || $options{'test-build'} || defined $options{'one-liner'};
86
87 exit 0 if $options{'check-args'};
88
89 =head1 NAME
90
91 bisect.pl - use git bisect to pinpoint changes
92
93 =head1 SYNOPSIS
94
95     # When did this become an error?
96     .../Porting/bisect.pl -e 'my $a := 2;'
97     # When did this stop being an error?
98     .../Porting/bisect.pl --expect-fail -e '1 // 2'
99     # When did this stop matching?
100     .../Porting/bisect.pl --match '\b(?:PL_)hash_seed_set\b'
101     # When did this start matching?
102     .../Porting/bisect.pl --expect-fail --match '\buseithreads\b'
103     # When did this test program stop working?
104     .../Porting/bisect.pl -- ./perl -Ilib ../test_prog.pl
105     # When did this first become valid syntax?
106     .../Porting/bisect.pl --target=miniperl --end=v5.10.0 \
107          --expect-fail -e 'my $a := 2;'
108     # What was the last revision to build with these options?
109     .../Porting/bisect.pl --test-build -Dd_dosuid
110
111 =head1 DESCRIPTION
112
113 Together F<bisect.pl> and F<bisect-runner.pl> attempt to automate the use
114 of C<git bisect> as much as possible. With one command (and no other files)
115 it's easy to find out
116
117 =over 4
118
119 =item *
120
121 Which commit caused this example code to break?
122
123 =item *
124
125 Which commit caused this example code to start working?
126
127 =item *
128
129 Which commit added the first to match this regex?
130
131 =item *
132
133 Which commit removed the last to match this regex?
134
135 =back
136
137 usually without needing to know which versions of perl to use as start and
138 end revisions.
139
140 By default F<bisect.pl> will process all options, then use the rest of the
141 command line as arguments to list C<system> to run a test case. By default,
142 the test case should pass (exit with 0) on earlier perls, and fail (exit
143 non-zero) on I<blead>. F<bisect.pl> will use F<bisect-runner.pl> to find the
144 earliest stable perl version on which the test case passes, check that it
145 fails on blead, and then use F<bisect-runner.pl> with C<git bisect run> to
146 find the commit which caused the failure.
147
148 Because the test case is the complete argument to C<system>, it is easy to
149 run something other than the F<perl> built, if necessary. If you need to run
150 the perl built, you'll probably need to invoke it as C<./perl -Ilib ...>
151
152 You need a clean checkout to run a bisect, and you can't use the checkout
153 which contains F<Porting/bisect.pl> (because C<git bisect>) will check out
154 a revision before F<Porting/bisect-runner.pl> was added, which
155 C<git bisect run> needs). If your working checkout is called F<perl>, the
156 simplest solution is to make a local clone, and run from that. I<i.e.>:
157
158     cd ..
159     git clone perl perl2
160     cd perl2
161     ../perl/Porting/bisect.pl ...
162
163 By default, F<bisect-runner.pl> will automatically disable the build of
164 L<DB_File> for commits earlier than ccb44e3bf3be2c30, as it's not practical
165 to patch DB_File 1.70 and earlier to build with current Berkeley DB headers.
166 (ccb44e3bf3be2c30 was in September 1999, between 5.005_62 and 5.005_63.)
167 If your F<db.h> is old enough you can override this with C<-Unoextensions>.
168
169 =head1 OPTIONS
170
171 =over 4
172
173 =item *
174
175 --start I<commit-ish>
176
177 Earliest revision to test, as a I<commit-ish> (a tag, commit or anything
178 else C<git> understands as a revision). If not specified, F<bisect.pl> will
179 search stable perl releases from 5.002 to 5.14.0 until it finds one where
180 the test case passes.
181
182 =item *
183
184 --end I<commit-ish>
185
186 Most recent revision to test, as a I<commit-ish>. If not specified, defaults
187 to I<blead>.
188
189 =item *
190
191 --target I<target>
192
193 F<Makefile> target (or equivalent) needed, to run the test case. If specified,
194 this should be one of
195
196 =over 4
197
198 =item *
199
200 I<config.sh>
201
202 Just run F<./Configure>
203
204 =item *
205
206 I<config.h>
207
208 Run the various F<*.SH> files to generate F<Makefile>, F<config.h>, I<etc>.
209
210 =item *
211
212 I<miniperl>
213
214 Build F<miniperl>.
215
216 =item *
217
218 I<lib/Config.pm>
219
220 Use F<miniperl> to build F<lib/Config.pm>
221
222 =item *
223
224 I<Fcntl>
225
226 Build F<lib/auto/Fcntl/Fnctl.so> (strictly, C<.$Config{so}>). As L<Fcntl>
227 is simple XS module present since 5.000, this provides a fast test of
228 whether XS modules can be built. Note, XS modules are built by F<miniperl>,
229 hence this target will not build F<perl>.
230
231 =item *
232
233 I<perl>
234
235 Build F<perl>. This also builds pure-Perl modules in F<cpan>, F<dist> and
236 F<ext>. XS modules (such as L<Fcntl>) are not built.
237
238 =item *
239
240 I<test_prep>
241
242 Build everything needed to run the tests. This is the default if we're
243 running test code, but is time consuming, as it means building all
244 XS modules. For older F<Makefile>s, the previous name of C<test-prep>
245 is automatically substituted. For very old F<Makefile>s, C<make test> is
246 run, as there is no target provided to just get things ready, and for 5.004
247 and earlier the tests run very quickly.
248
249 =back
250
251 =item *
252
253 --one-liner 'code to run'
254
255 =item *
256
257 -e 'code to run'
258
259 Example code to run, just like you'd use with C<perl -e>.
260
261 This prepends C<./perl -Ilib -e 'code to run'> to the test case given,
262 or F<./miniperl> if I<target> is C<miniperl>.
263
264 (Usually you'll use C<-e> instead of providing a test case in the
265 non-option arguments to F<bisect.pl>)
266
267 C<-E> intentionally isn't supported, as it's an error in 5.8.0 and earlier,
268 which interferes with detecting errors in the example code itself.
269
270 =item *
271
272 --expect-fail
273
274 The test case should fail for the I<start> revision, and pass for the I<end>
275 revision. The bisect run will find the first commit where it passes.
276
277 =item *
278
279 -Dnoextensions=Encode
280
281 =item *
282
283 -Uusedevel
284
285 =item *
286
287 -Accflags=-DNO_MATHOMS
288
289 Arguments to pass to F<Configure>. Repeated C<-A> arguments are passed
290 through as is. C<-D> and C<-U> are processed in order, and override
291 previous settings for the same parameter. F<bisect-runner.pl> emulates
292 C<-Dnoextensions> when F<Configure> itself does not provide it, as it's
293 often very useful to be able to disable some XS extensions.
294
295 =item *
296
297 --jobs I<jobs>
298
299 =item *
300
301 -j I<jobs>
302
303 Number of C<make> jobs to run in parallel. If F</proc/cpuinfo> exists and
304 can be parsed, or F</sbin/sysctl> exists and reports C<hw.ncpu>, or
305 F</usr/bin/getconf> exists and reports C<_NPROCESSORS_ONLN> defaults to 1 +
306 I<number of CPUs>. Otherwise defaults to 2.
307
308 =item *
309
310 --match pattern
311
312 Instead of running a test program to determine I<pass> or I<fail>, pass
313 if the given regex matches, and hence search for the commit that removes
314 the last matching file.
315
316 If no I<target> is specified, the match is against all files in the
317 repository (which is fast). If a I<target> is specified, that target is
318 built, and the match is against only the built files. C<--expect-fail> can
319 be used with C<--match> to search for a commit that adds files that match.
320
321 =item *
322
323 --test-build
324
325 Test that the build completes, without running any test case.
326
327 By default, if the build for the desired I<target> fails to complete,
328 F<bisect-runner.pl> reports a I<skip> back to C<git bisect>, the assumption
329 being that one wants to find a commit which changed state "builds && passes"
330 to "builds && fails". If instead one is interested in which commit broke the
331 build (possibly for particular F<Configure> options), use I<--test-build>
332 to treat a build failure as a failure, not a "skip".
333
334 Often this option isn't as useful as it first seems, because I<any> build
335 failure will be reported to C<git bisect> as a failure, not just the failure
336 that you're interested in. Generally, to debug a particular problem, it's
337 more useful to use a I<target> that builds properly at the point of interest,
338 and then a test case that runs C<make>. For example:
339
340     .../Porting/bisect.pl --start=perl-5.000 --end=perl-5.002 \
341         --expect-fail --force-manifest --target=miniperl make perl
342
343 will find the first revision capable of building L<DynaLoader> and then
344 F<perl>, without becoming confused by revisions where F<miniperl> won't
345 even link.
346
347 =item *
348
349 --force-manifest
350
351 By default, a build will "skip" if any files listed in F<MANIFEST> are not
352 present. Usually this is useful, as it avoids false-failures. However, there
353 are some long ranges of commits where listed files are missing, which can
354 cause a bisect to abort because all that remain are skipped revisions.
355
356 In these cases, particularly if the test case uses F<miniperl> and no modules,
357 it may be more useful to force the build to continue, even if files
358 F<MANIFEST> are missing.
359
360 =item *
361
362 --expect-pass [0|1]
363
364 C<--expect-pass=0> is equivalent to C<--expect-fail>. I<1> is the default.
365
366 =item *
367
368 --no-clean
369
370 Tell F<bisect-runner.pl> not to clean up after the build. This allows one
371 to use F<bisect-runner.pl> to build the current particular perl revision for
372 interactive testing, or for debugging F<bisect-runner.pl>.
373
374 Passing this to F<bisect.pl> will likely cause the bisect to fail badly.
375
376 =item *
377
378 --check-args
379
380 Validate the options and arguments, and exit silently if they are valid.
381
382 =item *
383
384 --usage
385
386 =item *
387
388 --help
389
390 =item *
391
392 -?
393
394 Display the usage information and exit.
395
396 =back
397
398 =cut
399
400 die "$0: Can't build $target" if defined $target && !grep {@targets} $target;
401
402 $j = "-j$j" if $j =~ /\A\d+\z/;
403
404 # Sadly, however hard we try, I don't think that it will be possible to build
405 # modules in ext/ on x86_64 Linux before commit e1666bf5602ae794 on 1999/12/29,
406 # which updated to MakeMaker 3.7, which changed from using a hard coded ld
407 # in the Makefile to $(LD). On x86_64 Linux the "linker" is gcc.
408
409 sub open_or_die {
410     my $file = shift;
411     my $mode = @_ ? shift : '<';
412     open my $fh, $mode, $file or croak("Can't open $file: $!");
413     ${*$fh{SCALAR}} = $file;
414     return $fh;
415 }
416
417 sub close_or_die {
418     my $fh = shift;
419     return if close $fh;
420     croak("Can't close: $!") unless ref $fh eq 'GLOB';
421     croak("Can't close ${*$fh{SCALAR}}: $!");
422 }
423
424 sub extract_from_file {
425     my ($file, $rx, $default) = @_;
426     my $fh = open_or_die($file);
427     while (<$fh>) {
428         my @got = $_ =~ $rx;
429         return wantarray ? @got : $got[0]
430             if @got;
431     }
432     return $default if defined $default;
433     return;
434 }
435
436 sub edit_file {
437     my ($file, $munger) = @_;
438     local $/;
439     my $fh = open_or_die($file);
440     my $orig = <$fh>;
441     die "Can't read $file: $!" unless defined $orig && close $fh;
442     my $new = $munger->($orig);
443     return if $new eq $orig;
444     $fh = open_or_die($file, '>');
445     print $fh $new or die "Can't print to $file: $!";
446     close_or_die($fh);
447 }
448
449 sub apply_patch {
450     my $patch = shift;
451
452     my ($file) = $patch =~ qr!^diff.*a/(\S+) b/\1!;
453     open my $fh, '|-', 'patch', '-p1' or die "Can't run patch: $!";
454     print $fh $patch;
455     return if close $fh;
456     print STDERR "Patch is <<'EOPATCH'\n${patch}EOPATCH\n";
457     die "Can't patch $file: $?, $!";
458 }
459
460 sub clean {
461     if ($options{clean}) {
462         # Needed, because files that are build products in this checked out
463         # version might be in git in the next desired version.
464         system 'git clean -dxf </dev/null';
465         # Needed, because at some revisions the build alters checked out files.
466         # (eg pod/perlapi.pod). Also undoes any changes to makedepend.SH
467         system 'git reset --hard HEAD </dev/null';
468     }
469 }
470
471 sub skip {
472     my $reason = shift;
473     clean();
474     warn "skipping - $reason";
475     exit 125;
476 }
477
478 sub report_and_exit {
479     my ($ret, $pass, $fail, $desc) = @_;
480
481     clean();
482
483     my $got = ($options{'expect-pass'} ? !$ret : $ret) ? 'good' : 'bad';
484     if ($ret) {
485         print "$got - $fail $desc\n";
486     } else {
487         print "$got - $pass $desc\n";
488     }
489
490     exit($got eq 'bad');
491 }
492
493 sub match_and_exit {
494     my $target = shift;
495     my $matches = 0;
496     my $re = qr/$match/;
497     my @files;
498
499     {
500         local $/ = "\0";
501         @files = defined $target ? `git ls-files -o -z`: `git ls-files -z`;
502         chomp @files;
503     }
504
505     foreach my $file (@files) {
506         my $fh = open_or_die($file);
507         while (<$fh>) {
508             if ($_ =~ $re) {
509                 ++$matches;
510                 if (tr/\t\r\n -~\200-\377//c) {
511                     print "Binary file $file matches\n";
512                 } else {
513                     $_ .= "\n" unless /\n\z/;
514                     print "$file: $_";
515                 }
516             }
517         }
518         close_or_die($fh);
519     }
520     report_and_exit(!$matches,
521                     $matches == 1 ? '1 match for' : "$matches matches for",
522                     'no matches for', $match);
523 }
524
525 # Not going to assume that system perl is yet new enough to have autodie
526 system 'git clean -dxf </dev/null' and die;
527
528 if (!defined $target) {
529     match_and_exit() if $match;
530     $target = 'test_prep';
531 }
532
533 skip('no Configure - is this the //depot/perlext/Compiler branch?')
534     unless -f 'Configure';
535
536 # This changes to PERL_VERSION in 4d8076ea25903dcb in 1999
537 my $major
538     = extract_from_file('patchlevel.h',
539                         qr/^#define\s+(?:PERL_VERSION|PATCHLEVEL)\s+(\d+)\s/,
540                         0);
541
542 if ($major < 1) {
543     if (extract_from_file('Configure',
544                           qr/^          \*=\*\) echo "\$1" >> \$optdef;;$/)) {
545         # This is "        Spaces now allowed in -D command line options.",
546         # part of commit ecfc54246c2a6f42
547         apply_patch(<<'EOPATCH');
548 diff --git a/Configure b/Configure
549 index 3d3b38d..78ffe16 100755
550 --- a/Configure
551 +++ b/Configure
552 @@ -652,7 +777,8 @@ while test $# -gt 0; do
553                         echo "$me: use '-U symbol=', not '-D symbol='." >&2
554                         echo "$me: ignoring -D $1" >&2
555                         ;;
556 -               *=*) echo "$1" >> $optdef;;
557 +               *=*) echo "$1" | \
558 +                               sed -e "s/'/'\"'\"'/g" -e "s/=\(.*\)/='\1'/" >> $optdef;;
559                 *) echo "$1='define'" >> $optdef;;
560                 esac
561                 shift
562 EOPATCH
563     }
564     if (extract_from_file('Configure', qr/^if \$contains 'd_namlen' \$xinc\b/)) {
565         # Configure's original simple "grep" for d_namlen falls foul of the
566         # approach taken by the glibc headers:
567         # #ifdef _DIRENT_HAVE_D_NAMLEN
568         # # define _D_EXACT_NAMLEN(d) ((d)->d_namlen)
569         #
570         # where _DIRENT_HAVE_D_NAMLEN is not defined on Linux.
571         # This is also part of commit ecfc54246c2a6f42
572         apply_patch(<<'EOPATCH');
573 diff --git a/Configure b/Configure
574 index 3d3b38d..78ffe16 100755
575 --- a/Configure
576 +++ b/Configure
577 @@ -3935,7 +4045,8 @@ $rm -f try.c
578  
579  : see if the directory entry stores field length
580  echo " "
581 -if $contains 'd_namlen' $xinc >/dev/null 2>&1; then
582 +$cppstdin $cppflags $cppminus < "$xinc" > try.c
583 +if $contains 'd_namlen' try.c >/dev/null 2>&1; then
584         echo "Good, your directory entry keeps length information in d_namlen." >&4
585         val="$define"
586  else
587 EOPATCH
588     }
589 }
590
591 if ($major < 2
592     && !extract_from_file('Configure',
593                           qr/Try to guess additional flags to pick up local libraries/)) {
594     my $mips = extract_from_file('Configure',
595                                  qr!(''\) if (?:\./)?mips; then)!);
596     # This is part of perl-5.001n. It's needed, to add -L/usr/local/lib to the
597     # ld flags if libraries are found there. It shifts the code to set up
598     # libpth earlier, and then adds the code to add libpth entries to ldflags
599     # mips was changed to ./mips in ecfc54246c2a6f42, perl5.000 patch.0g
600     apply_patch(sprintf <<'EOPATCH', $mips);
601 diff --git a/Configure b/Configure
602 index 53649d5..0635a6e 100755
603 --- a/Configure
604 +++ b/Configure
605 @@ -2749,6 +2749,52 @@ EOM
606         ;;
607  esac
608  
609 +: Set private lib path
610 +case "$plibpth" in
611 +'') if ./mips; then
612 +               plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
613 +       fi;;
614 +esac
615 +case "$libpth" in
616 +' ') dlist='';;
617 +'') dlist="$plibpth $glibpth";;
618 +*) dlist="$libpth";;
619 +esac
620 +
621 +: Now check and see which directories actually exist, avoiding duplicates
622 +libpth=''
623 +for xxx in $dlist
624 +do
625 +    if $test -d $xxx; then
626 +               case " $libpth " in
627 +               *" $xxx "*) ;;
628 +               *) libpth="$libpth $xxx";;
629 +               esac
630 +    fi
631 +done
632 +$cat <<'EOM'
633 +
634 +Some systems have incompatible or broken versions of libraries.  Among
635 +the directories listed in the question below, please remove any you
636 +know not to be holding relevant libraries, and add any that are needed.
637 +Say "none" for none.
638 +
639 +EOM
640 +case "$libpth" in
641 +'') dflt='none';;
642 +*)
643 +       set X $libpth
644 +       shift
645 +       dflt=${1+"$@"}
646 +       ;;
647 +esac
648 +rp="Directories to use for library searches?"
649 +. ./myread
650 +case "$ans" in
651 +none) libpth=' ';;
652 +*) libpth="$ans";;
653 +esac
654 +
655  : flags used in final linking phase
656  case "$ldflags" in
657  '') if ./venix; then
658 @@ -2765,6 +2811,23 @@ case "$ldflags" in
659         ;;
660  *) dflt="$ldflags";;
661  esac
662 +
663 +: Possible local library directories to search.
664 +loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
665 +loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
666 +
667 +: Try to guess additional flags to pick up local libraries.
668 +for thislibdir in $libpth; do
669 +       case " $loclibpth " in
670 +       *" $thislibdir "*)
671 +               case "$dflt " in 
672 +               "-L$thislibdir ") ;;
673 +               *)  dflt="$dflt -L$thislibdir" ;;
674 +               esac
675 +               ;;
676 +       esac
677 +done
678 +
679  echo " "
680  rp="Any additional ld flags (NOT including libraries)?"
681  . ./myread
682 @@ -2828,52 +2891,6 @@ n) echo "OK, that should do.";;
683  esac
684  $rm -f try try.* core
685  
686 -: Set private lib path
687 -case "$plibpth" in
688 -%s
689 -               plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
690 -       fi;;
691 -esac
692 -case "$libpth" in
693 -' ') dlist='';;
694 -'') dlist="$plibpth $glibpth";;
695 -*) dlist="$libpth";;
696 -esac
697 -
698 -: Now check and see which directories actually exist, avoiding duplicates
699 -libpth=''
700 -for xxx in $dlist
701 -do
702 -    if $test -d $xxx; then
703 -               case " $libpth " in
704 -               *" $xxx "*) ;;
705 -               *) libpth="$libpth $xxx";;
706 -               esac
707 -    fi
708 -done
709 -$cat <<'EOM'
710 -
711 -Some systems have incompatible or broken versions of libraries.  Among
712 -the directories listed in the question below, please remove any you
713 -know not to be holding relevant libraries, and add any that are needed.
714 -Say "none" for none.
715 -
716 -EOM
717 -case "$libpth" in
718 -'') dflt='none';;
719 -*)
720 -       set X $libpth
721 -       shift
722 -       dflt=${1+"$@"}
723 -       ;;
724 -esac
725 -rp="Directories to use for library searches?"
726 -. ./myread
727 -case "$ans" in
728 -none) libpth=' ';;
729 -*) libpth="$ans";;
730 -esac
731 -
732  : compute shared library extension
733  case "$so" in
734  '')
735 EOPATCH
736 }
737
738 if ($major < 5 && extract_from_file('Configure',
739                                     qr!if \$cc \$ccflags try\.c -o try >/dev/null 2>&1; then!)) {
740     # Analogous to the more general fix of dfe9444ca7881e71
741     # Without this flags such as -m64 may not be passed to this compile, which
742     # results in a byteorder of '1234' instead of '12345678', which can then
743     # cause crashes.
744     
745     if (extract_from_file('Configure', qr/xxx_prompt=y/)) {
746         # 8e07c86ebc651fe9 or later
747         # ("This is my patch  patch.1n  for perl5.001.")
748         apply_patch(<<'EOPATCH');
749 diff --git a/Configure b/Configure
750 index 62249dd..c5c384e 100755
751 --- a/Configure
752 +++ b/Configure
753 @@ -8247,7 +8247,7 @@ main()
754  }
755  EOCP
756         xxx_prompt=y
757 -       if $cc $ccflags try.c -o try >/dev/null 2>&1 && ./try > /dev/null; then
758 +       if $cc $ccflags $ldflags try.c -o try >/dev/null 2>&1 && ./try > /dev/null; then
759                 dflt=`./try`
760                 case "$dflt" in
761                 [1-4][1-4][1-4][1-4]|12345678|87654321)
762 EOPATCH
763     } else {
764         apply_patch(<<'EOPATCH');
765 diff --git a/Configure b/Configure
766 index 53649d5..f1cd64a 100755
767 --- a/Configure
768 +++ b/Configure
769 @@ -6362,7 +6362,7 @@ main()
770         printf("\n");
771  }
772  EOCP
773 -       if $cc $ccflags try.c -o try >/dev/null 2>&1 ; then
774 +       if $cc $ccflags $ldflags try.c -o try >/dev/null 2>&1 ; then
775                 dflt=`./try`
776                 case "$dflt" in
777                 ????|????????) echo "(The test program ran ok.)";;
778 EOPATCH
779     }
780 }
781
782 if ($major < 8 && !extract_from_file('Configure',
783                                     qr/^\t\tif test ! -t 0; then$/)) {
784     # Before dfe9444ca7881e71, Configure would refuse to run if stdin was not a
785     # tty. With that commit, the tty requirement was dropped for -de and -dE
786     # Commit aaeb8e512e8e9e14 dropped the tty requirement for -S
787     # For those older versions, it's probably easiest if we simply remove the
788     # sanity test.
789     edit_file('Configure', sub {
790                   my $code = shift;
791                   $code =~ s/test ! -t 0/test Perl = rules/;
792                   return $code;
793               });
794 }
795
796 if ($major == 8 || $major == 9) {
797     # Fix symbol detection to that of commit 373dfab3839ca168 if it's any
798     # intermediate version 5129fff43c4fe08c or later, as the intermediate
799     # versions don't work correctly on (at least) Sparc Linux.
800     # 5129fff43c4fe08c adds the first mention of mistrustnm.
801     # 373dfab3839ca168 removes the last mention of lc=""
802     edit_file('Configure', sub {
803                   my $code = shift;
804                   return $code
805                       if $code !~ /\btc="";/; # 373dfab3839ca168 or later
806                   return $code
807                       if $code !~ /\bmistrustnm\b/; # before 5129fff43c4fe08c
808                   my $fixed = <<'EOC';
809
810 : is a C symbol defined?
811 csym='tlook=$1;
812 case "$3" in
813 -v) tf=libc.tmp; tdc="";;
814 -a) tf=libc.tmp; tdc="[]";;
815 *) tlook="^$1\$"; tf=libc.list; tdc="()";;
816 esac;
817 tx=yes;
818 case "$reuseval-$4" in
819 true-) ;;
820 true-*) tx=no; eval "tval=\$$4"; case "$tval" in "") tx=yes;; esac;;
821 esac;
822 case "$tx" in
823 yes)
824         tval=false;
825         if $test "$runnm" = true; then
826                 if $contains $tlook $tf >/dev/null 2>&1; then
827                         tval=true;
828                 elif $test "$mistrustnm" = compile -o "$mistrustnm" = run; then
829                         echo "void *(*(p()))$tdc { extern void *$1$tdc; return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
830                         $cc -o try $optimize $ccflags $ldflags try.c >/dev/null 2>&1 $libs && tval=true;
831                         $test "$mistrustnm" = run -a -x try && { $run ./try$_exe >/dev/null 2>&1 || tval=false; };
832                         $rm -f try$_exe try.c core core.* try.core;
833                 fi;
834         else
835                 echo "void *(*(p()))$tdc { extern void *$1$tdc; return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
836                 $cc -o try $optimize $ccflags $ldflags try.c $libs >/dev/null 2>&1 && tval=true;
837                 $rm -f try$_exe try.c;
838         fi;
839         ;;
840 *)
841         case "$tval" in
842         $define) tval=true;;
843         *) tval=false;;
844         esac;
845         ;;
846 esac;
847 eval "$2=$tval"'
848
849 EOC
850                   $code =~ s/\n: is a C symbol defined\?\n.*?\neval "\$2=\$tval"'\n\n/$fixed/sm
851                       or die "substitution failed";
852                   return $code;
853               });
854 }
855
856 if ($major < 10 && extract_from_file('Configure', qr/^set malloc\.h i_malloc$/)) {
857     # This is commit 01d07975f7ef0e7d, trimmed, with $compile inlined as
858     # prior to bd9b35c97ad661cc Configure had the malloc.h test before the
859     # definition of $compile.
860     apply_patch(<<'EOPATCH');
861 diff --git a/Configure b/Configure
862 index 3d2e8b9..6ce7766 100755
863 --- a/Configure
864 +++ b/Configure
865 @@ -6743,5 +6743,22 @@ set d_dosuid
866  
867  : see if this is a malloc.h system
868 -set malloc.h i_malloc
869 -eval $inhdr
870 +: we want a real compile instead of Inhdr because some systems have a
871 +: malloc.h that just gives a compile error saying to use stdlib.h instead
872 +echo " "
873 +$cat >try.c <<EOCP
874 +#include <stdlib.h>
875 +#include <malloc.h>
876 +int main () { return 0; }
877 +EOCP
878 +set try
879 +if $cc $optimize $ccflags $ldflags -o try $* try.c $libs > /dev/null 2>&1; then
880 +    echo "<malloc.h> found." >&4
881 +    val="$define"
882 +else
883 +    echo "<malloc.h> NOT found." >&4
884 +    val="$undef"
885 +fi
886 +$rm -f try.c try
887 +set i_malloc
888 +eval $setvar
889  
890 EOPATCH
891 }
892
893 # Cwd.xs added in commit 0d2079faa739aaa9. Cwd.pm moved to ext/ 8 years later
894 # in commit 403f501d5b37ebf0
895 if ($major > 0 && <*/Cwd/Cwd.xs>) {
896     if ($major < 10 && !extract_from_file('Makefile.SH', qr/^extra_dep=''$/)) {
897         # The Makefile.PL for Unicode::Normalize needs
898         # lib/unicore/CombiningClass.pl. Even without a parallel build, we need
899         # a dependency to ensure that it builds. This is a variant of commit
900         # 9f3ef600c170f61e. Putting this for earlier versions gives us a spot
901         # on which to hang the edits below
902         apply_patch(<<'EOPATCH');
903 diff --git a/Makefile.SH b/Makefile.SH
904 index f61d0db..6097954 100644
905 --- a/Makefile.SH
906 +++ b/Makefile.SH
907 @@ -155,10 +155,20 @@ esac
908  
909  : Prepare dependency lists for Makefile.
910  dynamic_list=' '
911 +extra_dep=''
912  for f in $dynamic_ext; do
913      : the dependency named here will never exist
914        base=`echo "$f" | sed 's/.*\///'`
915 -    dynamic_list="$dynamic_list lib/auto/$f/$base.$dlext"
916 +    this_target="lib/auto/$f/$base.$dlext"
917 +    dynamic_list="$dynamic_list $this_target"
918 +
919 +    : Parallel makes reveal that we have some interdependencies
920 +    case $f in
921 +       Math/BigInt/FastCalc) extra_dep="$extra_dep
922 +$this_target: lib/auto/List/Util/Util.$dlext" ;;
923 +       Unicode/Normalize) extra_dep="$extra_dep
924 +$this_target: lib/unicore/CombiningClass.pl" ;;
925 +    esac
926  done
927  
928  static_list=' '
929 @@ -987,2 +997,9 @@ n_dummy $(nonxs_ext):       miniperl$(EXE_EXT) preplibrary $(DYNALOADER) FORCE
930         @$(LDLIBPTH) sh ext/util/make_ext nonxs $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
931 +!NO!SUBS!
932 +
933 +$spitshell >>Makefile <<EOF
934 +$extra_dep
935 +EOF
936 +
937 +$spitshell >>Makefile <<'!NO!SUBS!'
938  
939 EOPATCH
940     }
941     if ($major < 14) {
942         # Commits dc0655f797469c47 and d11a62fe01f2ecb2
943         edit_file('Makefile.SH', sub {
944                       my $code = shift;
945                       foreach my $ext (qw(Encode SDBM_File)) {
946                           next if $code =~ /\b$ext\) extra_dep=/s;
947                           $code =~ s!(\) extra_dep="\$extra_dep
948 \$this_target: .*?" ;;)
949 (    esac
950 )!$1
951         $ext) extra_dep="\$extra_dep
952 \$this_target: lib/auto/Cwd/Cwd.\$dlext" ;;
953 $2!;
954                       }
955                       return $code;
956                   });
957     }
958 }
959 if ($major == 7) {
960     # Remove commits 9fec149bb652b6e9 and 5bab1179608f81d8, which add/amend
961     # rules to automatically run regen scripts that rebuild C headers. These
962     # cause problems because a git checkout doesn't preserve relative file
963     # modification times, hence the regen scripts may fire. This will obscure
964     # whether the repository had the correct generated headers checked in.
965     # Also, the dependency rules for running the scripts were not correct,
966     # which could cause spurious re-builds on re-running make, and can cause
967     # complete build failures for a parallel make.
968     if (extract_from_file('Makefile.SH',
969                           qr/Writing it this way gives make a big hint to always run opcode\.pl before/)) {
970         system 'git show 70c6e6715e8fec53 | patch -p1'
971             and die;
972     } elsif (extract_from_file('Makefile.SH',
973                                qr/^opcode\.h opnames\.h pp_proto\.h pp\.sym: opcode\.pl$/)) {
974         system 'git show 9fec149bb652b6e9 | patch -p1 -R'
975             and die;
976     }
977 }
978
979 # There was a bug in makedepend.SH which was fixed in version 96a8704c.
980 # Symptom was './makedepend: 1: Syntax error: Unterminated quoted string'
981 # Remove this if you're actually bisecting a problem related to makedepend.SH
982 system 'git show blead:makedepend.SH > makedepend.SH </dev/null' and die;
983
984 if ($^O eq 'freebsd') {
985     # There are rather too many version-specific FreeBSD hints fixes to patch
986     # individually. Also, more than once the FreeBSD hints file has been
987     # written in what turned out to be a rather non-future-proof style,
988     # with case statements treating the most recent version as the exception,
989     # instead of treating previous versions' behaviour explicitly and changing
990     # the default to cater for the current behaviour. (As strangely, future
991     # versions inherit the current behaviour.)
992     system 'git show blead:hints/freebsd.sh > hints/freebsd.sh </dev/null'
993       and die;
994 } elsif ($^O eq 'darwin') {
995     if ($major < 8) {
996         my $faking_it;
997         # We can't build on darwin without some of the data in the hints file.
998         foreach ('ext/DynaLoader/dl_dyld.xs', 'hints/darwin.sh') {
999             next if -f $_;
1000             ++$faking_it;
1001             # Probably less surprising to use the earliest version of
1002             # hints/darwin.sh and then edit in place just below, than use
1003             # blead's version, as that would create a discontinuity at
1004             # f556e5b971932902 - before it, hints bugs would be "fixed", after
1005             # it they'd resurface. This way, we should give the illusion of
1006             # monotonic bug fixing.
1007             system "git show f556e5b971932902:$_ >$_"
1008                 and die "while attempting to extract $_";
1009         }
1010         if ($faking_it) {
1011             apply_patch(<<'EOPATCH');
1012 diff -u a/ext/DynaLoader/dl_dyld.xs~ a/ext/DynaLoader/dl_dyld.xs
1013 --- a/ext/DynaLoader/dl_dyld.xs~        2011-10-11 21:41:27.000000000 +0100
1014 +++ b/ext/DynaLoader/dl_dyld.xs 2011-10-11 21:42:20.000000000 +0100
1015 @@ -41,6 +41,35 @@
1016  #include "perl.h"
1017  #include "XSUB.h"
1018  
1019 +#ifndef pTHX
1020 +#  define pTHX         void
1021 +#  define pTHX_
1022 +#endif
1023 +#ifndef aTHX
1024 +#  define aTHX
1025 +#  define aTHX_
1026 +#endif
1027 +#ifndef dTHX
1028 +#  define dTHXa(a)     extern int Perl___notused(void)
1029 +#  define dTHX         extern int Perl___notused(void)
1030 +#endif
1031 +
1032 +#ifndef Perl_form_nocontext
1033 +#  define Perl_form_nocontext form
1034 +#endif
1035 +
1036 +#ifndef Perl_warn_nocontext
1037 +#  define Perl_warn_nocontext warn
1038 +#endif
1039 +
1040 +#ifndef PTR2IV
1041 +#  define PTR2IV(p)    (IV)(p)
1042 +#endif
1043 +
1044 +#ifndef get_av
1045 +#  define get_av perl_get_av
1046 +#endif
1047 +
1048  #define DL_LOADONCEONLY
1049  
1050  #include "dlutils.c"   /* SaveError() etc      */
1051 @@ -185,7 +191,7 @@
1052      CODE:
1053      DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filename,flags));
1054      if (flags & 0x01)
1055 -       Perl_warn(aTHX_ "Can't make loaded symbols global on this platform while loading %s",filename);
1056 +       Perl_warn_nocontext("Can't make loaded symbols global on this platform while loading %s",filename);
1057      RETVAL = dlopen(filename, mode) ;
1058      DLDEBUG(2,PerlIO_printf(Perl_debug_log, " libref=%x\n", RETVAL));
1059      ST(0) = sv_newmortal() ;
1060 EOPATCH
1061             if ($major < 4 && !extract_from_file('util.c', qr/^form/m)) {
1062                 apply_patch(<<'EOPATCH');
1063 diff -u a/ext/DynaLoader/dl_dyld.xs~ a/ext/DynaLoader/dl_dyld.xs
1064 --- a/ext/DynaLoader/dl_dyld.xs~        2011-10-11 21:56:25.000000000 +0100
1065 +++ b/ext/DynaLoader/dl_dyld.xs 2011-10-11 22:00:00.000000000 +0100
1066 @@ -60,6 +60,18 @@
1067  #  define get_av perl_get_av
1068  #endif
1069  
1070 +static char *
1071 +form(char *pat, ...)
1072 +{
1073 +    char *retval;
1074 +    va_list args;
1075 +    va_start(args, pat);
1076 +    vasprintf(&retval, pat, &args);
1077 +    va_end(args);
1078 +    SAVEFREEPV(retval);
1079 +    return retval;
1080 +}
1081 +
1082  #define DL_LOADONCEONLY
1083  
1084  #include "dlutils.c"   /* SaveError() etc      */
1085 EOPATCH
1086             }
1087         }
1088
1089         edit_file('hints/darwin.sh', sub {
1090                       my $code = shift;
1091                       # Part of commit 8f4f83badb7d1ba9, which mostly undoes
1092                       # commit 0511a818910f476c.
1093                       $code =~ s/^cppflags='-traditional-cpp';$/cppflags="\${cppflags} -no-cpp-precomp"/m;
1094                       # commit 14c11978e9b52e08/803bb6cc74d36a3f
1095                       # Without this, code in libperl.bundle links against op.o
1096                       # in preference to opmini.o on the linker command line,
1097                       # and hence miniperl tries to use File::Glob instead of
1098                       # csh
1099                       $code =~ s/^(lddlflags=)/ldflags="\${ldflags} -flat_namespace"\n$1/m;
1100                       # f556e5b971932902 also patches Makefile.SH with some
1101                       # special case code to deal with useshrplib for darwin.
1102                       # Given that post 5.8.0 the darwin hints default was
1103                       # changed to false, and it would be very complex to splice
1104                       # in that code in various versions of Makefile.SH back
1105                       # to 5.002, lets just turn it off.
1106                       $code =~ s/^useshrplib='true'/useshrplib='false'/m
1107                           if $faking_it;
1108                       return $code;
1109                   });
1110     }
1111 } elsif ($^O eq 'netbsd') {
1112     if ($major < 6) {
1113         # These are part of commit 099685bc64c7dbce
1114         edit_file('hints/netbsd.sh', sub {
1115                       my $code = shift;
1116                       my $fixed = <<'EOC';
1117 case "$osvers" in
1118 0.9|0.8*)
1119         usedl="$undef"
1120         ;;
1121 *)
1122         if [ -f /usr/libexec/ld.elf_so ]; then
1123                 d_dlopen=$define
1124                 d_dlerror=$define
1125                 ccdlflags="-Wl,-E -Wl,-R${PREFIX}/lib $ccdlflags"
1126                 cccdlflags="-DPIC -fPIC $cccdlflags"
1127                 lddlflags="--whole-archive -shared $lddlflags"
1128         elif [ "`uname -m`" = "pmax" ]; then
1129 # NetBSD 1.3 and 1.3.1 on pmax shipped an `old' ld.so, which will not work.
1130                 d_dlopen=$undef
1131         elif [ -f /usr/libexec/ld.so ]; then
1132                 d_dlopen=$define
1133                 d_dlerror=$define
1134                 ccdlflags="-Wl,-R${PREFIX}/lib $ccdlflags"
1135 # we use -fPIC here because -fpic is *NOT* enough for some of the
1136 # extensions like Tk on some netbsd platforms (the sparc is one)
1137                 cccdlflags="-DPIC -fPIC $cccdlflags"
1138                 lddlflags="-Bforcearchive -Bshareable $lddlflags"
1139         else
1140                 d_dlopen=$undef
1141         fi
1142         ;;
1143 esac
1144 EOC
1145                       $code =~ s/^case "\$osvers" in\n0\.9\|0\.8.*?^esac\n/$fixed/ms;
1146                       return $code;
1147                   });
1148         if (!extract_from_file('unixish.h',
1149                                qr/defined\(NSIG\).*defined\(__NetBSD__\)/)) {
1150             apply_patch(<<'EOPATCH')
1151 diff --git a/unixish.h b/unixish.h
1152 index 2a6cbcd..eab2de1 100644
1153 --- a/unixish.h
1154 +++ b/unixish.h
1155 @@ -89,7 +89,7 @@
1156   */
1157  /* #define ALTERNATE_SHEBANG "#!" / **/
1158  
1159 -#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
1160 +#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) || defined(__NetBSD__)
1161  # include <signal.h>
1162  #endif
1163  
1164 EOPATCH
1165         }
1166     }
1167 } elsif ($^O eq 'openbsd') {
1168     if (!-f 'hints/openbsd.sh') {
1169         system 'git show 43051805d53a3e4c:hints/openbsd.sh > hints/openbsd.sh'
1170           and die;
1171     }
1172
1173     if ($major < 8) {
1174         my $which = extract_from_file('hints/openbsd.sh',
1175                                       qr/# from (2\.8|3\.1) onwards/,
1176                                       '');
1177         if ($which eq '') {
1178             my $was = extract_from_file('hints/openbsd.sh',
1179                                         qr/(lddlflags="(?:-Bforcearchive )?-Bshareable)/);
1180             # This is commit 154d43cbcf57271c and parts of 5c75dbfa77b0949c
1181             # and 29b5585702e5e025
1182             apply_patch(sprintf <<'EOPATCH', $was);
1183 diff --git a/hints/openbsd.sh b/hints/openbsd.sh
1184 index a7d8bf2..5b79709 100644
1185 --- a/hints/openbsd.sh
1186 +++ b/hints/openbsd.sh
1187 @@ -37,7 +37,25 @@ OpenBSD.alpha|OpenBSD.mips|OpenBSD.powerpc|OpenBSD.vax)
1188         # we use -fPIC here because -fpic is *NOT* enough for some of the
1189         # extensions like Tk on some OpenBSD platforms (ie: sparc)
1190         cccdlflags="-DPIC -fPIC $cccdlflags"
1191 -       %s $lddlflags"
1192 +       case "$osvers" in
1193 +       [01].*|2.[0-7]|2.[0-7].*)
1194 +               lddlflags="-Bshareable $lddlflags"
1195 +               ;;
1196 +       2.[8-9]|3.0)
1197 +               ld=${cc:-cc}
1198 +               lddlflags="-shared -fPIC $lddlflags"
1199 +               ;;
1200 +       *) # from 3.1 onwards
1201 +               ld=${cc:-cc}
1202 +               lddlflags="-shared -fPIC $lddlflags"
1203 +               libswanted=`echo $libswanted | sed 's/ dl / /'`
1204 +               ;;
1205 +       esac
1206 +
1207 +       # We need to force ld to export symbols on ELF platforms.
1208 +       # Without this, dlopen() is crippled.
1209 +       ELF=`${cc:-cc} -dM -E - </dev/null | grep __ELF__`
1210 +       test -n "$ELF" && ldflags="-Wl,-E $ldflags"
1211         ;;
1212  esac
1213  
1214 EOPATCH
1215         } elsif ($which eq '2.8') {
1216             # This is parts of 5c75dbfa77b0949c and 29b5585702e5e025, and
1217             # possibly eb9cd59d45ad2908
1218             my $was = extract_from_file('hints/openbsd.sh',
1219                                         qr/lddlflags="(-shared(?: -fPIC)?) \$lddlflags"/);
1220
1221             apply_patch(sprintf <<'EOPATCH', $was);
1222 --- a/hints/openbsd.sh  2011-10-21 17:25:20.000000000 +0200
1223 +++ b/hints/openbsd.sh  2011-10-21 16:58:43.000000000 +0200
1224 @@ -44,11 +44,21 @@
1225         [01].*|2.[0-7]|2.[0-7].*)
1226                 lddlflags="-Bshareable $lddlflags"
1227                 ;;
1228 -       *) # from 2.8 onwards
1229 +       2.[8-9]|3.0)
1230                 ld=${cc:-cc}
1231 -               lddlflags="%s $lddlflags"
1232 +               lddlflags="-shared -fPIC $lddlflags"
1233 +               ;;
1234 +       *) # from 3.1 onwards
1235 +               ld=${cc:-cc}
1236 +               lddlflags="-shared -fPIC $lddlflags"
1237 +               libswanted=`echo $libswanted | sed 's/ dl / /'`
1238                 ;;
1239         esac
1240 +
1241 +       # We need to force ld to export symbols on ELF platforms.
1242 +       # Without this, dlopen() is crippled.
1243 +       ELF=`${cc:-cc} -dM -E - </dev/null | grep __ELF__`
1244 +       test -n "$ELF" && ldflags="-Wl,-E $ldflags"
1245         ;;
1246  esac
1247  
1248 EOPATCH
1249         } elsif ($which eq '3.1'
1250                 && !extract_from_file('hints/openbsd.sh',
1251                                      qr/We need to force ld to export symbols on ELF platforms/)) {
1252             # This is part of 29b5585702e5e025
1253             apply_patch(<<'EOPATCH');
1254 diff --git a/hints/openbsd.sh b/hints/openbsd.sh
1255 index c6b6bc9..4839d04 100644
1256 --- a/hints/openbsd.sh
1257 +++ b/hints/openbsd.sh
1258 @@ -54,6 +54,11 @@ alpha-2.[0-8]|mips-*|vax-*|powerpc-2.[0-7]|m88k-*)
1259                 libswanted=`echo $libswanted | sed 's/ dl / /'`
1260                 ;;
1261         esac
1262 +
1263 +       # We need to force ld to export symbols on ELF platforms.
1264 +       # Without this, dlopen() is crippled.
1265 +       ELF=`${cc:-cc} -dM -E - </dev/null | grep __ELF__`
1266 +       test -n "$ELF" && ldflags="-Wl,-E $ldflags"
1267         ;;
1268  esac
1269  
1270 EOPATCH
1271         }
1272     }
1273     if ($major < 4) {
1274         my $bad;
1275         # Need changes from commit a6e633defa583ad5.
1276         # Commits c07a80fdfe3926b5 and f82b3d4130164d5f changed the same part
1277         # of perl.h
1278
1279         if (extract_from_file('perl.h',
1280                               qr/^#ifdef HAS_GETPGRP2$/)) {
1281             $bad = <<'EOBAD';
1282 ***************
1283 *** 57,71 ****
1284   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
1285   #define TAINT_ENV()   if (tainting) taint_env()
1286   
1287 ! #ifdef HAS_GETPGRP2
1288 ! #   ifndef HAS_GETPGRP
1289 ! #     define HAS_GETPGRP
1290 ! #   endif
1291 ! #endif
1292
1293 ! #ifdef HAS_SETPGRP2
1294 ! #   ifndef HAS_SETPGRP
1295 ! #     define HAS_SETPGRP
1296 ! #   endif
1297   #endif
1298   
1299 EOBAD
1300         } elsif (extract_from_file('perl.h',
1301                                    qr/Gack, you have one but not both of getpgrp2/)) {
1302             $bad = <<'EOBAD';
1303 ***************
1304 *** 56,76 ****
1305   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
1306   #define TAINT_ENV()   if (tainting) taint_env()
1307   
1308 ! #if defined(HAS_GETPGRP2) && defined(HAS_SETPGRP2)
1309 ! #   define getpgrp getpgrp2
1310 ! #   define setpgrp setpgrp2
1311 ! #   ifndef HAS_GETPGRP
1312 ! #     define HAS_GETPGRP
1313 ! #   endif
1314 ! #   ifndef HAS_SETPGRP
1315 ! #     define HAS_SETPGRP
1316 ! #   endif
1317 ! #   ifndef USE_BSDPGRP
1318 ! #     define USE_BSDPGRP
1319 ! #   endif
1320 ! #else
1321 ! #   if defined(HAS_GETPGRP2) || defined(HAS_SETPGRP2)
1322 !       #include "Gack, you have one but not both of getpgrp2() and setpgrp2()."
1323 ! #   endif
1324   #endif
1325   
1326 EOBAD
1327         } elsif (extract_from_file('perl.h',
1328                                    qr/^#ifdef USE_BSDPGRP$/)) {
1329             $bad = <<'EOBAD'
1330 ***************
1331 *** 91,116 ****
1332   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
1333   #define TAINT_ENV()   if (tainting) taint_env()
1334   
1335 ! #ifdef USE_BSDPGRP
1336 ! #   ifdef HAS_GETPGRP
1337 ! #       define BSD_GETPGRP(pid) getpgrp((pid))
1338 ! #   endif
1339 ! #   ifdef HAS_SETPGRP
1340 ! #       define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
1341 ! #   endif
1342 ! #else
1343 ! #   ifdef HAS_GETPGRP2
1344 ! #       define BSD_GETPGRP(pid) getpgrp2((pid))
1345 ! #       ifndef HAS_GETPGRP
1346 ! #         define HAS_GETPGRP
1347 ! #     endif
1348 ! #   endif
1349 ! #   ifdef HAS_SETPGRP2
1350 ! #       define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
1351 ! #       ifndef HAS_SETPGRP
1352 ! #         define HAS_SETPGRP
1353 ! #     endif
1354 ! #   endif
1355   #endif
1356   
1357   #ifndef _TYPES_               /* If types.h defines this it's easy. */
1358 EOBAD
1359         }
1360         if ($bad) {
1361             apply_patch(<<"EOPATCH");
1362 *** a/perl.h    2011-10-21 09:46:12.000000000 +0200
1363 --- b/perl.h    2011-10-21 09:46:12.000000000 +0200
1364 $bad--- 91,144 ----
1365   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
1366   #define TAINT_ENV()   if (tainting) taint_env()
1367   
1368 ! /* XXX All process group stuff is handled in pp_sys.c.  Should these 
1369 !    defines move there?  If so, I could simplify this a lot. --AD  9/96.
1370 ! */
1371 ! /* Process group stuff changed from traditional BSD to POSIX.
1372 !    perlfunc.pod documents the traditional BSD-style syntax, so we'll
1373 !    try to preserve that, if possible.
1374 ! */
1375 ! #ifdef HAS_SETPGID
1376 ! #  define BSD_SETPGRP(pid, pgrp)      setpgid((pid), (pgrp))
1377 ! #else
1378 ! #  if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
1379 ! #    define BSD_SETPGRP(pid, pgrp)    setpgrp((pid), (pgrp))
1380 ! #  else
1381 ! #    ifdef HAS_SETPGRP2  /* DG/UX */
1382 ! #      define BSD_SETPGRP(pid, pgrp)  setpgrp2((pid), (pgrp))
1383 ! #    endif
1384 ! #  endif
1385 ! #endif
1386 ! #if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
1387 ! #  define HAS_SETPGRP  /* Well, effectively it does . . . */
1388 ! #endif
1389
1390 ! /* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
1391 !     our life easier :-) so we'll try it.
1392 ! */
1393 ! #ifdef HAS_GETPGID
1394 ! #  define BSD_GETPGRP(pid)            getpgid((pid))
1395 ! #else
1396 ! #  if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
1397 ! #    define BSD_GETPGRP(pid)          getpgrp((pid))
1398 ! #  else
1399 ! #    ifdef HAS_GETPGRP2  /* DG/UX */
1400 ! #      define BSD_GETPGRP(pid)                getpgrp2((pid))
1401 ! #    endif
1402 ! #  endif
1403 ! #endif
1404 ! #if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
1405 ! #  define HAS_GETPGRP  /* Well, effectively it does . . . */
1406 ! #endif
1407
1408 ! /* These are not exact synonyms, since setpgrp() and getpgrp() may 
1409 !    have different behaviors, but perl.h used to define USE_BSDPGRP
1410 !    (prior to 5.003_05) so some extension might depend on it.
1411 ! */
1412 ! #if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
1413 ! #  ifndef USE_BSDPGRP
1414 ! #    define USE_BSDPGRP
1415 ! #  endif
1416   #endif
1417   
1418   #ifndef _TYPES_               /* If types.h defines this it's easy. */
1419 EOPATCH
1420         }
1421     }
1422     if ($major < 3 && !extract_from_file('pp_sys.c', qr/BSD_GETPGRP/)) {
1423         # Part of commit c3293030fd1b7489
1424         apply_patch(<<'EOPATCH');
1425 diff --git a/pp_sys.c b/pp_sys.c
1426 index 4608a2a..f0c9d1d 100644
1427 --- a/pp_sys.c
1428 +++ b/pp_sys.c
1429 @@ -2903,8 +2903,8 @@ PP(pp_getpgrp)
1430         pid = 0;
1431      else
1432         pid = SvIVx(POPs);
1433 -#ifdef USE_BSDPGRP
1434 -    value = (I32)getpgrp(pid);
1435 +#ifdef BSD_GETPGRP
1436 +    value = (I32)BSD_GETPGRP(pid);
1437  #else
1438      if (pid != 0)
1439         DIE("POSIX getpgrp can't take an argument");
1440 @@ -2933,8 +2933,8 @@ PP(pp_setpgrp)
1441      }
1442  
1443      TAINT_PROPER("setpgrp");
1444 -#ifdef USE_BSDPGRP
1445 -    SETi( setpgrp(pid, pgrp) >= 0 );
1446 +#ifdef BSD_SETPGRP
1447 +    SETi( BSD_SETPGRP(pid, pgrp) >= 0 );
1448  #else
1449      if ((pgrp != 0) || (pid != 0)) {
1450         DIE("POSIX setpgrp can't take an argument");
1451 EOPATCH
1452     }
1453 } elsif ($^O eq 'linux') {
1454     if ($major < 1) {
1455         # sparc linux seems to need the -Dbool=char -DHAS_BOOL part of
1456         # perl5.000 patch.0n: [address Configure and build issues]
1457         edit_file('hints/linux.sh', sub {
1458                       my $code = shift;
1459                       $code =~ s!-I/usr/include/bsd!-Dbool=char -DHAS_BOOL!g;
1460                       return $code;
1461                   });
1462     }
1463
1464     if ($major <= 9) {
1465         if (`uname -sm` =~ qr/^Linux sparc/) {
1466             if (extract_from_file('hints/linux.sh', qr/sparc-linux/)) {
1467                 # Be sure to use -fPIC not -fpic on Linux/SPARC
1468                 system 'git show f6527d0ef0c13ad4 | patch -p1'
1469                     and die;
1470             } elsif(!extract_from_file('hints/linux.sh', qr/^sparc-linux\)$/)) {
1471                 my $fh = open_or_die('hints/linux.sh', '>>');
1472                 print $fh <<'EOT' or die $!;
1473
1474 case "`uname -m`" in
1475 sparc*)
1476         case "$cccdlflags" in
1477         *-fpic*) cccdlflags="`echo $cccdlflags|sed 's/-fpic/-fPIC/'`" ;;
1478         *)       cccdlflags="$cccdlflags -fPIC" ;;
1479         esac
1480         ;;
1481 esac
1482 EOT
1483                 close_or_die($fh);
1484             }
1485         }
1486     }
1487 }
1488
1489 if ($major < 10) {
1490     if (!extract_from_file('ext/DB_File/DB_File.xs',
1491                            qr!^#else /\* Berkeley DB Version > 2 \*/$!)) {
1492         # This DB_File.xs is really too old to patch up.
1493         # Skip DB_File, unless we're invoked with an explicit -Unoextensions
1494         if (!exists $defines{noextensions}) {
1495             $defines{noextensions} = 'DB_File';
1496         } elsif (defined $defines{noextensions}) {
1497             $defines{noextensions} .= ' DB_File';
1498         }
1499     } elsif (!extract_from_file('ext/DB_File/DB_File.xs',
1500                                 qr/^#ifdef AT_LEAST_DB_4_1$/)) {
1501         # This line is changed by commit 3245f0580c13b3ab
1502         my $line = extract_from_file('ext/DB_File/DB_File.xs',
1503                                      qr/^(        status = \(?RETVAL->dbp->open\)?\(RETVAL->dbp, name, NULL, RETVAL->type, $)/);
1504         apply_patch(<<"EOPATCH");
1505 diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
1506 index 489ba96..fba8ded 100644
1507 --- a/ext/DB_File/DB_File.xs
1508 +++ b/ext/DB_File/DB_File.xs
1509 \@\@ -183,4 +187,8 \@\@
1510  #endif
1511  
1512 +#if DB_VERSION_MAJOR > 4 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 1)
1513 +#    define AT_LEAST_DB_4_1
1514 +#endif
1515 +
1516  /* map version 2 features & constants onto their version 1 equivalent */
1517  
1518 \@\@ -1334,7 +1419,12 \@\@ SV *   sv ;
1519  #endif
1520  
1521 +#ifdef AT_LEAST_DB_4_1
1522 +        status = (RETVAL->dbp->open)(RETVAL->dbp, NULL, name, NULL, RETVAL->type, 
1523 +                               Flags, mode) ; 
1524 +#else
1525  $line
1526                                 Flags, mode) ; 
1527 +#endif
1528         /* printf("open returned %d %s\\n", status, db_strerror(status)) ; */
1529  
1530 EOPATCH
1531     }
1532 }
1533
1534 # if Encode is not needed for the test, you can speed up the bisect by
1535 # excluding it from the runs with -Dnoextensions=Encode
1536 # ccache is an easy win. Remove it if it causes problems.
1537 # Commit 1cfa4ec74d4933da adds ignore_versioned_solibs to Configure, and sets it
1538 # to true in hints/linux.sh
1539 # On dromedary, from that point on, Configure (by default) fails to find any
1540 # libraries, because it scans /usr/local/lib /lib /usr/lib, which only contain
1541 # versioned libraries. Without -lm, the build fails.
1542 # Telling /usr/local/lib64 /lib64 /usr/lib64 works from that commit onwards,
1543 # until commit faae14e6e968e1c0 adds it to the hints.
1544 # However, prior to 1cfa4ec74d4933da telling Configure the truth doesn't work,
1545 # because it will spot versioned libraries, pass them to the compiler, and then
1546 # bail out pretty early on. Configure won't let us override libswanted, but it
1547 # will let us override the entire libs list.
1548
1549 unless (extract_from_file('Configure', 'ignore_versioned_solibs')) {
1550     # Before 1cfa4ec74d4933da, so force the libs list.
1551
1552     my @libs;
1553     # This is the current libswanted list from Configure, less the libs removed
1554     # by current hints/linux.sh
1555     foreach my $lib (qw(sfio socket inet nsl nm ndbm gdbm dbm db malloc dl dld
1556                         ld sun m crypt sec util c cposix posix ucb BSD)) {
1557         foreach my $dir (@paths) {
1558             next unless -f "$dir/lib$lib.so";
1559             push @libs, "-l$lib";
1560             last;
1561         }
1562     }
1563     $defines{libs} = \@libs unless exists $defines{libs};
1564 }
1565
1566 $defines{usenm} = undef
1567     if $major < 2 && !exists $defines{usenm};
1568
1569 my (@missing, @created_dirs);
1570
1571 if ($options{'force-manifest'}) {
1572     my $fh = open_or_die('MANIFEST');
1573     while (<$fh>) {
1574         next unless /^(\S+)/;
1575         # -d is special case needed (at least) between 27332437a2ed1941 and
1576         # bf3d9ec563d25054^ inclusive, as manifest contains ext/Thread/Thread
1577         push @missing, $1
1578             unless -f $1 || -d $1;
1579     }
1580     close_or_die($fh);
1581
1582     foreach my $pathname (@missing) {
1583         my @parts = split '/', $pathname;
1584         my $leaf = pop @parts;
1585         my $path = '.';
1586         while (@parts) {
1587             $path .= '/' . shift @parts;
1588             next if -d $path;
1589             mkdir $path, 0700 or die "Can't create $path: $!";
1590             unshift @created_dirs, $path;
1591         }
1592         $fh = open_or_die($pathname, '>');
1593         close_or_die($fh);
1594         chmod 0, $pathname or die "Can't chmod 0 $pathname: $!";
1595     }
1596 }
1597
1598 my @ARGS = '-dEs';
1599 foreach my $key (sort keys %defines) {
1600     my $val = $defines{$key};
1601     if (ref $val) {
1602         push @ARGS, "-D$key=@$val";
1603     } elsif (!defined $val) {
1604         push @ARGS, "-U$key";
1605     } elsif (!length $val) {
1606         push @ARGS, "-D$key";
1607     } else {
1608         $val = "" if $val eq "\0";
1609         push @ARGS, "-D$key=$val";
1610     }
1611 }
1612 push @ARGS, map {"-A$_"} @{$options{A}};
1613
1614 # </dev/null because it seems that some earlier versions of Configure can
1615 # call commands in a way that now has them reading from stdin (and hanging)
1616 my $pid = fork;
1617 die "Can't fork: $!" unless defined $pid;
1618 if (!$pid) {
1619     open STDIN, '<', '/dev/null';
1620     # If a file in MANIFEST is missing, Configure asks if you want to
1621     # continue (the default being 'n'). With stdin closed or /dev/null,
1622     # it exits immediately and the check for config.sh below will skip.
1623     exec './Configure', @ARGS;
1624     die "Failed to start Configure: $!";
1625 }
1626 waitpid $pid, 0
1627     or die "wait for Configure, pid $pid failed: $!";
1628
1629 # Emulate noextensions if Configure doesn't support it.
1630 if (-f 'config.sh') {
1631     if ($major < 10 && $defines{noextensions}) {
1632         edit_file('config.sh', sub {
1633                       my @lines = split /\n/, shift;
1634                       my @ext = split /\s+/, $defines{noextensions};
1635                       foreach (@lines) {
1636                           next unless /^extensions=/ || /^dynamic_ext/;
1637                           foreach my $ext (@ext) {
1638                               s/\b$ext( )?\b/$1/;
1639                           }
1640                       }
1641                       return join "\n", @lines;
1642                   });
1643     }
1644     if ($major < 4 && !extract_from_file('config.sh', qr/^trnl=/)) {
1645         # This seems to be necessary to avoid makedepend becoming confused,
1646         # and hanging on stdin. Seems that the code after
1647         # make shlist || ...here... is never run.
1648         edit_file('makedepend.SH', sub {
1649                       my $code = shift;
1650                       $code =~ s/^trnl='\$trnl'$/trnl='\\n'/m;
1651                       return $code;
1652                   });
1653     }
1654
1655     system './Configure -S </dev/null' and die;
1656 }
1657
1658 if ($target =~ /config\.s?h/) {
1659     match_and_exit($target) if $match && -f $target;
1660     report_and_exit(!-f $target, 'could build', 'could not build', $target)
1661         if $options{'test-build'};
1662
1663     my $ret = system @ARGV;
1664     report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
1665 } elsif (!-f 'config.sh') {
1666     # Skip if something went wrong with Configure
1667
1668     skip('could not build config.sh');
1669 }
1670
1671 # This is probably way too paranoid:
1672 if (@missing) {
1673     my @errors;
1674     require Fcntl;
1675     foreach my $file (@missing) {
1676         my (undef, undef, $mode, undef, undef, undef, undef, $size)
1677             = stat $file;
1678         if (!defined $mode) {
1679             push @errors, "Added file $file has been deleted by Configure";
1680             next;
1681         }
1682         if (Fcntl::S_IMODE($mode) != 0) {
1683             push @errors,
1684                 sprintf 'Added file %s had mode changed by Configure to %03o',
1685                     $file, $mode;
1686         }
1687         if ($size != 0) {
1688             push @errors,
1689                 "Added file $file had sized changed by Configure to $size";
1690         }
1691         unlink $file or die "Can't unlink $file: $!";
1692     }
1693     foreach my $dir (@created_dirs) {
1694         rmdir $dir or die "Can't rmdir $dir: $!";
1695     }
1696     skip("@errors")
1697         if @errors;
1698 }
1699
1700 # Correct makefile for newer GNU gcc
1701 # Only really needed if you comment out the use of blead's makedepend.SH
1702 {
1703     local $^I = "";
1704     local @ARGV = qw(makefile x2p/makefile);
1705     while (<>) {
1706         print unless /<(?:built-in|command|stdin)/;
1707     }
1708 }
1709
1710 if ($major == 2 && extract_from_file('perl.c', qr/^     fclose\(e_fp\);$/)) {
1711     # need to patch perl.c to avoid calling fclose() twice on e_fp when using -e
1712     # This diff is part of commit ab821d7fdc14a438. The second close was
1713     # introduced with perl-5.002, commit a5f75d667838e8e7
1714     # Might want a6c477ed8d4864e6 too, for the corresponding change to pp_ctl.c
1715     # (likely without this, eval will have "fun")
1716     apply_patch(<<'EOPATCH');
1717 diff --git a/perl.c b/perl.c
1718 index 03c4d48..3c814a2 100644
1719 --- a/perl.c
1720 +++ b/perl.c
1721 @@ -252,6 +252,7 @@ setuid perl scripts securely.\n");
1722  #ifndef VMS  /* VMS doesn't have environ array */
1723      origenviron = environ;
1724  #endif
1725 +    e_tmpname = Nullch;
1726  
1727      if (do_undump) {
1728  
1729 @@ -405,6 +406,7 @@ setuid perl scripts securely.\n");
1730      if (e_fp) {
1731         if (Fflush(e_fp) || ferror(e_fp) || fclose(e_fp))
1732             croak("Can't write to temp file for -e: %s", Strerror(errno));
1733 +       e_fp = Nullfp;
1734         argc++,argv--;
1735         scriptname = e_tmpname;
1736      }
1737 @@ -470,10 +472,10 @@ setuid perl scripts securely.\n");
1738      curcop->cop_line = 0;
1739      curstash = defstash;
1740      preprocess = FALSE;
1741 -    if (e_fp) {
1742 -       fclose(e_fp);
1743 -       e_fp = Nullfp;
1744 +    if (e_tmpname) {
1745         (void)UNLINK(e_tmpname);
1746 +       Safefree(e_tmpname);
1747 +       e_tmpname = Nullch;
1748      }
1749  
1750      /* now that script is parsed, we can modify record separator */
1751 @@ -1369,7 +1371,7 @@ SV *sv;
1752         scriptname = xfound;
1753      }
1754  
1755 -    origfilename = savepv(e_fp ? "-e" : scriptname);
1756 +    origfilename = savepv(e_tmpname ? "-e" : scriptname);
1757      curcop->cop_filegv = gv_fetchfile(origfilename);
1758      if (strEQ(origfilename,"-"))
1759         scriptname = "";
1760
1761 EOPATCH
1762 }
1763
1764 if (($major >= 7 || $major <= 9) && $^O eq 'openbsd'
1765     && `uname -m` eq "sparc64\n"
1766     # added in 2000 by commit cb434fcc98ac25f5:
1767     && extract_from_file('regexec.c',
1768                          qr!/\* No need to save/restore up to this paren \*/!)
1769     # re-indented in 2006 by commit 95b2444054382532:
1770     && extract_from_file('regexec.c', qr/^\t\tCURCUR cc;$/)) {
1771     # Need to work around a bug in (at least) OpenBSD's 4.6's sparc64 compiler
1772     # ["gcc (GCC) 3.3.5 (propolice)"]. Between commits 3ec562b0bffb8b8b (2002)
1773     # and 1a4fad37125bac3e^ (2005) the darling thing fails to compile any code
1774     # for the statement cc.oldcc = PL_regcc;
1775     # If you refactor the code to "fix" that, or force the issue using set in
1776     # the debugger, the stack smashing detection code fires on return from
1777     # S_regmatch(). Turns out that the compiler doesn't allocate any (or at
1778     # least enough) space for cc.
1779     # Restore the "uninitialised" value for cc before function exit, and the
1780     # stack smashing code is placated.
1781     # "Fix" 3ec562b0bffb8b8b (which changes the size of auto variables used
1782     # elsewhere in S_regmatch), and the crash is visible back to
1783     # bc517b45fdfb539b (which also changes buffer sizes). "Unfix"
1784     # 1a4fad37125bac3e and the crash is visible until 5b47454deb66294b.
1785     # Problem goes away if you compile with -O, or hack the code as below.
1786     #
1787     # Hence this turns out to be a bug in (old) gcc. Not a security bug we
1788     # still need to fix.
1789     apply_patch(<<'EOPATCH');
1790 diff --git a/regexec.c b/regexec.c
1791 index 900b491..6251a0b 100644
1792 --- a/regexec.c
1793 +++ b/regexec.c
1794 @@ -2958,7 +2958,11 @@ S_regmatch(pTHX_ regnode *prog)
1795                                 I,I
1796   *******************************************************************/
1797         case CURLYX: {
1798 -               CURCUR cc;
1799 +           union {
1800 +               CURCUR hack_cc;
1801 +               char hack_buff[sizeof(CURCUR) + 1];
1802 +           } hack;
1803 +#define cc hack.hack_cc
1804                 CHECKPOINT cp = PL_savestack_ix;
1805                 /* No need to save/restore up to this paren */
1806                 I32 parenfloor = scan->flags;
1807 @@ -2983,6 +2987,7 @@ S_regmatch(pTHX_ regnode *prog)
1808                 n = regmatch(PREVOPER(next));   /* start on the WHILEM */
1809                 regcpblow(cp);
1810                 PL_regcc = cc.oldcc;
1811 +#undef cc
1812                 saySAME(n);
1813             }
1814             /* NOT REACHED */
1815 EOPATCH
1816 }
1817
1818 if ($major < 8 && $^O eq 'openbsd'
1819     && !extract_from_file('perl.h', qr/include <unistd\.h>/)) {
1820     # This is part of commit 3f270f98f9305540, applied at a slightly different
1821     # location in perl.h, where the context is stable back to 5.000
1822     apply_patch(<<'EOPATCH');
1823 diff --git a/perl.h b/perl.h
1824 index 9418b52..b8b1a7c 100644
1825 --- a/perl.h
1826 +++ b/perl.h
1827 @@ -496,6 +496,10 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
1828  #   include <sys/param.h>
1829  #endif
1830  
1831 +/* If this causes problems, set i_unistd=undef in the hint file.  */
1832 +#ifdef I_UNISTD
1833 +#   include <unistd.h>
1834 +#endif
1835  
1836  /* Use all the "standard" definitions? */
1837  #if defined(STANDARD_C) && defined(I_STDLIB)
1838 EOPATCH
1839 }
1840
1841 if ($major == 4 && extract_from_file('scope.c', qr/\(SV\*\)SSPOPINT/)) {
1842     # [PATCH] 5.004_04 +MAINT_TRIAL_1 broken when sizeof(int) != sizeof(void)
1843     # Fixes a bug introduced in 161b7d1635bc830b
1844     system 'git show 9002cb76ec83ef7f | patch -p1'
1845         and die;
1846 }
1847
1848 if ($major == 4 && extract_from_file('av.c', qr/AvARRAY\(av\) = 0;/)) {
1849     # Fixes a bug introduced in 1393e20655efb4bc
1850     system 'git show e1c148c28bf3335b av.c | patch -p1'
1851         and die;
1852 }
1853
1854 if ($major == 4 && $^O eq 'linux') {
1855     # Whilst this is fixed properly in f0784f6a4c3e45e1 which provides the
1856     # Configure probe, it's easier to back out the problematic changes made in
1857     # these previous commits:
1858     if (extract_from_file('doio.c',
1859                           qr!^/\* XXX REALLY need metaconfig test \*/$!)) {
1860         system 'git show -R 4682965a1447ea44 doio.c | patch -p1'
1861             and die;
1862     }
1863     if (my $token = extract_from_file('doio.c',
1864                                       qr!^#if (defined\(__sun(?:__)?\)) && defined\(__svr4__\) /\* XXX Need metaconfig test \*/$!)) {
1865         my $patch = `git show -R 9b599b2a63d2324d doio.c`;
1866         $patch =~ s/defined\(__sun__\)/$token/g;
1867         apply_patch($patch);
1868     }
1869     if (extract_from_file('doio.c',
1870                           qr!^/\* linux \(and Solaris2\?\) uses :$!)) {
1871         system 'git show -R 8490252049bf42d3 doio.c | patch -p1'
1872             and die;
1873     }
1874     if (extract_from_file('doio.c',
1875                           qr/^      unsemds.buf = &semds;$/)) {
1876         system 'git show -R 8e591e46b4c6543e | patch -p1'
1877             and die;
1878     }
1879     if (extract_from_file('doio.c',
1880                           qr!^#ifdef __linux__  /\* XXX Need metaconfig test \*/$!)) {
1881         # Part of commit 3e3baf6d63945cb6
1882         apply_patch(<<'EOPATCH');
1883 diff --git b/doio.c a/doio.c
1884 index 62b7de9..0d57425 100644
1885 --- b/doio.c
1886 +++ a/doio.c
1887 @@ -1333,9 +1331,6 @@ SV **sp;
1888      char *a;
1889      I32 id, n, cmd, infosize, getinfo;
1890      I32 ret = -1;
1891 -#ifdef __linux__       /* XXX Need metaconfig test */
1892 -    union semun unsemds;
1893 -#endif
1894  
1895      id = SvIVx(*++mark);
1896      n = (optype == OP_SEMCTL) ? SvIVx(*++mark) : 0;
1897 @@ -1364,29 +1359,11 @@ SV **sp;
1898             infosize = sizeof(struct semid_ds);
1899         else if (cmd == GETALL || cmd == SETALL)
1900         {
1901 -#ifdef __linux__       /* XXX Need metaconfig test */
1902 -/* linux uses :
1903 -   int semctl (int semid, int semnun, int cmd, union semun arg)
1904 -
1905 -       union semun {
1906 -            int val;
1907 -            struct semid_ds *buf;
1908 -            ushort *array;
1909 -       };
1910 -*/
1911 -            union semun semds;
1912 -           if (semctl(id, 0, IPC_STAT, semds) == -1)
1913 -#else
1914             struct semid_ds semds;
1915             if (semctl(id, 0, IPC_STAT, &semds) == -1)
1916 -#endif
1917                 return -1;
1918             getinfo = (cmd == GETALL);
1919 -#ifdef __linux__       /* XXX Need metaconfig test */
1920 -           infosize = semds.buf->sem_nsems * sizeof(short);
1921 -#else
1922             infosize = semds.sem_nsems * sizeof(short);
1923 -#endif
1924                 /* "short" is technically wrong but much more portable
1925                    than guessing about u_?short(_t)? */
1926         }
1927 @@ -1429,12 +1406,7 @@ SV **sp;
1928  #endif
1929  #ifdef HAS_SEM
1930      case OP_SEMCTL:
1931 -#ifdef __linux__       /* XXX Need metaconfig test */
1932 -        unsemds.buf = (struct semid_ds *)a;
1933 -       ret = semctl(id, n, cmd, unsemds);
1934 -#else
1935         ret = semctl(id, n, cmd, (struct semid_ds *)a);
1936 -#endif
1937         break;
1938  #endif
1939  #ifdef HAS_SHM
1940 EOPATCH
1941     }
1942     # Incorrect prototype added as part of 8ac853655d9b7447, fixed as part of
1943     # commit dc45a647708b6c54, with at least one intermediate modification.
1944     # Correct prototype for gethostbyaddr has socklen_t second. Linux has
1945     # uint32_t first for getnetbyaddr.
1946     # Easiest just to remove, instead of attempting more complex patching.
1947     # Something similar may be needed on other platforms.
1948     edit_file('pp_sys.c', sub {
1949                   my $code = shift;
1950                   $code =~ s/^    struct hostent \*(?:PerlSock_)?gethostbyaddr\([^)]+\);$//m;
1951                   $code =~ s/^    struct netent \*getnetbyaddr\([^)]+\);$//m;
1952                   return $code;
1953               });
1954 }
1955
1956 if ($major < 10 and -f 'ext/IPC/SysV/SysV.xs') {
1957     edit_file('ext/IPC/SysV/SysV.xs', sub {
1958                   my $xs = shift;
1959                   my $fixed = <<'EOFIX';
1960
1961 #include <sys/types.h>
1962 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
1963 #ifndef HAS_SEM
1964 #   include <sys/ipc.h>
1965 #endif
1966 #   ifdef HAS_MSG
1967 #       include <sys/msg.h>
1968 #   endif
1969 #   ifdef HAS_SHM
1970 #       if defined(PERL_SCO) || defined(PERL_ISC)
1971 #           include <sys/sysmacros.h>   /* SHMLBA */
1972 #       endif
1973 #      include <sys/shm.h>
1974 #      ifndef HAS_SHMAT_PROTOTYPE
1975            extern Shmat_t shmat (int, char *, int);
1976 #      endif
1977 #      if defined(HAS_SYSCONF) && defined(_SC_PAGESIZE)
1978 #          undef  SHMLBA /* not static: determined at boot time */
1979 #          define SHMLBA sysconf(_SC_PAGESIZE)
1980 #      elif defined(HAS_GETPAGESIZE)
1981 #          undef  SHMLBA /* not static: determined at boot time */
1982 #          define SHMLBA getpagesize()
1983 #      endif
1984 #   endif
1985 #endif
1986 EOFIX
1987                   $xs =~ s!
1988 #include <sys/types\.h>
1989 .*
1990 (#ifdef newCONSTSUB|/\* Required)!$fixed$1!ms;
1991                   return $xs;
1992               });
1993 }
1994
1995 if (-f 'ext/POSIX/Makefile.PL'
1996     && extract_from_file('ext/POSIX/Makefile.PL',
1997                          qr/Explicitly avoid including/)) {
1998     # commit 6695a346c41138df, which effectively reverts 170888cff5e2ffb7
1999
2000     # PERL5LIB is populated by make_ext.pl with paths to the modules we need
2001     # to run, don't override this with "../../lib" since that may not have
2002     # been populated yet in a parallel build.
2003     apply_patch(<<'EOPATCH');
2004 diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
2005 index 392b6fb..9e6d091 100644
2006 --- a/ext/POSIX/Makefile.PL
2007 +++ b/ext/POSIX/Makefile.PL
2008 @@ -1,7 +1,3 @@
2009 -# Explicitly avoid including '.' in @INC; autoloader gets confused since it
2010 -# can find POSIX.pm, but can't find autosplit.ix.
2011 -BEGIN { @INC = '../../lib';}
2012 -#
2013  use ExtUtils::MakeMaker;
2014  use ExtUtils::Constant 0.11 'WriteConstants';
2015  use Config;
2016 EOPATCH
2017 }
2018
2019 # Parallel build for miniperl is safe
2020 system "make $j miniperl </dev/null";
2021
2022 my $expected = $target =~ /^test/ ? 't/perl'
2023     : $target eq 'Fcntl' ? "lib/auto/Fcntl/Fcntl.$Config{so}"
2024     : $target;
2025 my $real_target = $target eq 'Fcntl' ? $expected : $target;
2026
2027 if ($target ne 'miniperl') {
2028     # Nearly all parallel build issues fixed by 5.10.0. Untrustworthy before that.
2029     $j = '' if $major < 10;
2030
2031     if ($real_target eq 'test_prep') {
2032         if ($major < 8) {
2033             # test-prep was added in 5.004_01, 3e3baf6d63945cb6.
2034             # renamed to test_prep in 2001 in 5fe84fd29acaf55c.
2035             # earlier than that, just make test. It will be fast enough.
2036             $real_target = extract_from_file('Makefile.SH',
2037                                              qr/^(test[-_]prep):/,
2038                                              'test');
2039         }
2040     }
2041
2042     system "make $j $real_target </dev/null";
2043 }
2044
2045 my $missing_target = $expected =~ /perl$/ ? !-x $expected : !-r $expected;
2046
2047 if ($options{'test-build'}) {
2048     report_and_exit($missing_target, 'could build', 'could not build',
2049                     $real_target);
2050 } elsif ($missing_target) {
2051     skip("could not build $real_target");
2052 }
2053
2054 match_and_exit($real_target) if $match;
2055
2056 if (defined $options{'one-liner'}) {
2057     my $exe = $target =~ /^(?:perl$|test)/ ? 'perl' : 'miniperl';
2058     unshift @ARGV, "./$exe", '-Ilib', '-e', $options{'one-liner'};
2059 }
2060
2061 # This is what we came here to run:
2062
2063 if (exists $Config{ldlibpthname}) {
2064     require Cwd;
2065     my $varname = $Config{ldlibpthname};
2066     my $cwd = Cwd::getcwd();
2067     if (defined $ENV{$varname}) {
2068         $ENV{$varname} = $cwd . $Config{path_sep} . $ENV{$varname};
2069     } else {
2070         $ENV{$varname} = $cwd;
2071     }
2072 }
2073
2074 my $ret = system @ARGV;
2075
2076 report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
2077
2078 # Local variables:
2079 # cperl-indent-level: 4
2080 # indent-tabs-mode: nil
2081 # End:
2082 #
2083 # ex: set ts=8 sts=4 sw=4 et: