This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
f15f92dd03dec874cfd0246975abcbfbe8055cc1
[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 --version`, $?) ? 'cc' : 'ccache cc',
57      ld => 'cc',
58      ($linux64 ? (libpth => \@paths) : ()),
59     );
60
61 unless(GetOptions(\%options,
62                   'target=s', 'make=s', 'jobs|j=i', 'expect-pass=i',
63                   'expect-fail' => sub { $options{'expect-pass'} = 0; },
64                   'clean!', 'one-liner|e=s', 'l', 'w', 'match=s',
65                   'no-match=s' => sub {
66                       $options{match} = $_[1];
67                       $options{'expect-pass'} = 0;
68                   },
69                   'force-manifest', 'force-regen', 'test-build', 'validate',
70                   'check-args', 'check-shebang!', 'usage|help|?', 'A=s@',
71                   'D=s@' => sub {
72                       my (undef, $val) = @_;
73                       if ($val =~ /\A([^=]+)=(.*)/s) {
74                           $defines{$1} = length $2 ? $2 : "\0";
75                       } else {
76                           $defines{$val} = '';
77                       }
78                   },
79                   'U=s@' => sub {
80                       $defines{$_[1]} = undef;
81                   },
82                  )) {
83     pod2usage(exitval => 255, verbose => 1);
84 }
85
86 my ($target, $j, $match) = @options{qw(target jobs match)};
87
88 @ARGV = ('sh', '-c', 'cd t && ./perl TEST base/*.t')
89     if $options{validate} && !@ARGV;
90
91 pod2usage(exitval => 0, verbose => 1) if $options{usage};
92 pod2usage(exitval => 255, verbose => 1)
93     unless @ARGV || $match || $options{'test-build'} || defined $options{'one-liner'};
94 pod2usage(exitval => 255, verbose => 1)
95     if !$options{'one-liner'} && ($options{l} || $options{w});
96
97 check_shebang($ARGV[0])
98     if $options{'check-shebang'} && @ARGV && !$options{match};
99
100 exit 0 if $options{'check-args'};
101
102 =head1 NAME
103
104 bisect.pl - use git bisect to pinpoint changes
105
106 =head1 SYNOPSIS
107
108     # When did this become an error?
109     .../Porting/bisect.pl -e 'my $a := 2;'
110     # When did this stop being an error?
111     .../Porting/bisect.pl --expect-fail -e '1 // 2'
112     # When did this stop matching?
113     .../Porting/bisect.pl --match '\b(?:PL_)hash_seed_set\b'
114     # When did this start matching?
115     .../Porting/bisect.pl --expect-fail --match '\buseithreads\b'
116     # When did this test program stop working?
117     .../Porting/bisect.pl -- ./perl -Ilib ../test_prog.pl
118     # When did this first become valid syntax?
119     .../Porting/bisect.pl --target=miniperl --end=v5.10.0 \
120          --expect-fail -e 'my $a := 2;'
121     # What was the last revision to build with these options?
122     .../Porting/bisect.pl --test-build -Dd_dosuid
123
124 =head1 DESCRIPTION
125
126 Together F<bisect.pl> and F<bisect-runner.pl> attempt to automate the use
127 of C<git bisect> as much as possible. With one command (and no other files)
128 it's easy to find out
129
130 =over 4
131
132 =item *
133
134 Which commit caused this example code to break?
135
136 =item *
137
138 Which commit caused this example code to start working?
139
140 =item *
141
142 Which commit added the first to match this regex?
143
144 =item *
145
146 Which commit removed the last to match this regex?
147
148 =back
149
150 usually without needing to know which versions of perl to use as start and
151 end revisions.
152
153 By default F<bisect.pl> will process all options, then use the rest of the
154 command line as arguments to list C<system> to run a test case. By default,
155 the test case should pass (exit with 0) on earlier perls, and fail (exit
156 non-zero) on I<blead>. F<bisect.pl> will use F<bisect-runner.pl> to find the
157 earliest stable perl version on which the test case passes, check that it
158 fails on blead, and then use F<bisect-runner.pl> with C<git bisect run> to
159 find the commit which caused the failure.
160
161 Because the test case is the complete argument to C<system>, it is easy to
162 run something other than the F<perl> built, if necessary. If you need to run
163 the perl built, you'll probably need to invoke it as C<./perl -Ilib ...>
164
165 You need a clean checkout to run a bisect, and you can't use the checkout
166 which contains F<Porting/bisect.pl> (because C<git bisect>) will check out
167 a revision before F<Porting/bisect-runner.pl> was added, which
168 C<git bisect run> needs). If your working checkout is called F<perl>, the
169 simplest solution is to make a local clone, and run from that. I<i.e.>:
170
171     cd ..
172     git clone perl perl2
173     cd perl2
174     ../perl/Porting/bisect.pl ...
175
176 By default, F<bisect-runner.pl> will automatically disable the build of
177 L<DB_File> for commits earlier than ccb44e3bf3be2c30, as it's not practical
178 to patch DB_File 1.70 and earlier to build with current Berkeley DB headers.
179 (ccb44e3bf3be2c30 was in September 1999, between 5.005_62 and 5.005_63.)
180 If your F<db.h> is old enough you can override this with C<-Unoextensions>.
181
182 =head1 OPTIONS
183
184 =over 4
185
186 =item *
187
188 --start I<commit-ish>
189
190 Earliest revision to test, as a I<commit-ish> (a tag, commit or anything
191 else C<git> understands as a revision). If not specified, F<bisect.pl> will
192 search stable perl releases until it finds one where the test case passes.
193 The default is to search from 5.002 to 5.14.0. If F<bisect.pl> detects that
194 the checkout is on a case insensitive file system, it will search from
195 5.005 to 5.14.0
196
197 =item *
198
199 --end I<commit-ish>
200
201 Most recent revision to test, as a I<commit-ish>. If not specified, defaults
202 to I<blead>.
203
204 =item *
205
206 --target I<target>
207
208 F<Makefile> target (or equivalent) needed, to run the test case. If specified,
209 this should be one of
210
211 =over 4
212
213 =item *
214
215 I<config.sh>
216
217 Just run F<./Configure>
218
219 =item *
220
221 I<config.h>
222
223 Run the various F<*.SH> files to generate F<Makefile>, F<config.h>, I<etc>.
224
225 =item *
226
227 I<miniperl>
228
229 Build F<miniperl>.
230
231 =item *
232
233 I<lib/Config.pm>
234
235 Use F<miniperl> to build F<lib/Config.pm>
236
237 =item *
238
239 I<Fcntl>
240
241 Build F<lib/auto/Fcntl/Fnctl.so> (strictly, C<.$Config{so}>). As L<Fcntl>
242 is simple XS module present since 5.000, this provides a fast test of
243 whether XS modules can be built. Note, XS modules are built by F<miniperl>,
244 hence this target will not build F<perl>.
245
246 =item *
247
248 I<perl>
249
250 Build F<perl>. This also builds pure-Perl modules in F<cpan>, F<dist> and
251 F<ext>. XS modules (such as L<Fcntl>) are not built.
252
253 =item *
254
255 I<test_prep>
256
257 Build everything needed to run the tests. This is the default if we're
258 running test code, but is time consuming, as it means building all
259 XS modules. For older F<Makefile>s, the previous name of C<test-prep>
260 is automatically substituted. For very old F<Makefile>s, C<make test> is
261 run, as there is no target provided to just get things ready, and for 5.004
262 and earlier the tests run very quickly.
263
264 =back
265
266 =item *
267
268 --one-liner 'code to run'
269
270 =item *
271
272 -e 'code to run'
273
274 Example code to run, just like you'd use with C<perl -e>.
275
276 This prepends C<./perl -Ilib -e 'code to run'> to the test case given,
277 or F<./miniperl> if I<target> is C<miniperl>.
278
279 (Usually you'll use C<-e> instead of providing a test case in the
280 non-option arguments to F<bisect.pl>)
281
282 C<-E> intentionally isn't supported, as it's an error in 5.8.0 and earlier,
283 which interferes with detecting errors in the example code itself.
284
285 =item *
286
287 -l
288
289 Add C<-l> to the command line with C<-e>
290
291 This will automatically append a newline to every output line of your testcase.
292 Note that you can't specify an argument to F<perl>'s C<-l> with this, as it's
293 not feasible to emulate F<perl>'s somewhat quirky switch parsing with
294 L<Getopt::Long>. If you need the full flexibility of C<-l>, you need to write
295 a full test case, instead of using C<bisect.pl>'s C<-e> shortcut.
296
297 =item *
298
299 -w
300
301 Add C<-w> to the command line with C<-e>
302
303 It's not valid to pass C<-l> or C<-w> to C<bisect.pl> unless you are also
304 using C<-e>
305
306 =item *
307
308 --expect-fail
309
310 The test case should fail for the I<start> revision, and pass for the I<end>
311 revision. The bisect run will find the first commit where it passes.
312
313 =item *
314
315 -Dnoextensions=Encode
316
317 =item *
318
319 -Uusedevel
320
321 =item *
322
323 -Accflags=-DNO_MATHOMS
324
325 Arguments to pass to F<Configure>. Repeated C<-A> arguments are passed
326 through as is. C<-D> and C<-U> are processed in order, and override
327 previous settings for the same parameter. F<bisect-runner.pl> emulates
328 C<-Dnoextensions> when F<Configure> itself does not provide it, as it's
329 often very useful to be able to disable some XS extensions.
330
331 =item *
332
333 --make I<make-prog>
334
335 The C<make> command to use. If this not set, F<make> is used. If this is
336 set, it also adds a C<-Dmake=...> else some recursive make invocations
337 in extensions may fail. Typically one would use this as C<--make gmake>
338 to use F<gmake> in place of the system F<make>.
339
340 =item *
341
342 --jobs I<jobs>
343
344 =item *
345
346 -j I<jobs>
347
348 Number of C<make> jobs to run in parallel. If F</proc/cpuinfo> exists and
349 can be parsed, or F</sbin/sysctl> exists and reports C<hw.ncpu>, or
350 F</usr/bin/getconf> exists and reports C<_NPROCESSORS_ONLN> defaults to 1 +
351 I<number of CPUs>. Otherwise defaults to 2.
352
353 =item *
354
355 --match pattern
356
357 =item *
358
359 --no-match pattern
360
361 Instead of running a test program to determine I<pass> or I<fail>,
362 C<--match> will pass if the given regex matches, and hence search for the
363 commit that removes the last matching file. C<--no-match> inverts the test,
364 to search for the first commit that adds files that match.
365
366 The remaining command line arguments are treated as glob patterns for files
367 to match against. If none are specified, then they default as follows:
368
369 =over 4
370
371 =item *
372
373 If no I<target> is specified, the match is against all files in the
374 repository (which is fast).
375
376 =item *
377
378 If a I<target> is specified, that target is built, and the match is against
379 only the built files.
380
381 =back
382
383 Treating the command line arguments as glob patterns should not cause
384 problems, as the perl distribution has never shipped or built files with
385 names that contain characters which are globbing metacharacters.
386
387 Anything which is not a readable file is ignored, instead of generating an
388 error. (If you want an error, run C<grep> or C<ack> as a test case). This
389 permits one to easily search in a file that changed its name. For example:
390
391     .../Porting/bisect.pl --match 'Pod.*Functions' 'pod/buildtoc*'
392
393 C<--no-match ...> is implemented as C<--expect-fail --match ...>
394
395 =item *
396
397 --test-build
398
399 Test that the build completes, without running any test case.
400
401 By default, if the build for the desired I<target> fails to complete,
402 F<bisect-runner.pl> reports a I<skip> back to C<git bisect>, the assumption
403 being that one wants to find a commit which changed state "builds && passes"
404 to "builds && fails". If instead one is interested in which commit broke the
405 build (possibly for particular F<Configure> options), use I<--test-build>
406 to treat a build failure as a failure, not a "skip".
407
408 Often this option isn't as useful as it first seems, because I<any> build
409 failure will be reported to C<git bisect> as a failure, not just the failure
410 that you're interested in. Generally, to debug a particular problem, it's
411 more useful to use a I<target> that builds properly at the point of interest,
412 and then a test case that runs C<make>. For example:
413
414     .../Porting/bisect.pl --start=perl-5.000 --end=perl-5.002 \
415         --expect-fail --force-manifest --target=miniperl make perl
416
417 will find the first revision capable of building L<DynaLoader> and then
418 F<perl>, without becoming confused by revisions where F<miniperl> won't
419 even link.
420
421 =item *
422
423 --force-manifest
424
425 By default, a build will "skip" if any files listed in F<MANIFEST> are not
426 present. Usually this is useful, as it avoids false-failures. However, there
427 are some long ranges of commits where listed files are missing, which can
428 cause a bisect to abort because all that remain are skipped revisions.
429
430 In these cases, particularly if the test case uses F<miniperl> and no modules,
431 it may be more useful to force the build to continue, even if files
432 F<MANIFEST> are missing.
433
434 =item *
435
436 --force-regen
437
438 Run C<make regen_headers> before building F<miniperl>. This may fix a build
439 that otherwise would skip because the generated headers at that revision
440 are stale. It's not the default because it conceals this error in the true
441 state of such revisions.
442
443 =item *
444
445 --expect-pass [0|1]
446
447 C<--expect-pass=0> is equivalent to C<--expect-fail>. I<1> is the default.
448
449 =item *
450
451 --no-clean
452
453 Tell F<bisect-runner.pl> not to clean up after the build. This allows one
454 to use F<bisect-runner.pl> to build the current particular perl revision for
455 interactive testing, or for debugging F<bisect-runner.pl>.
456
457 Passing this to F<bisect.pl> will likely cause the bisect to fail badly.
458
459 =item *
460
461 --validate
462
463 Test that all stable revisions can be built. By default, attempts to build
464 I<blead>, I<v5.14.0> .. I<perl-5.002> (or I<perl5.005> on a case insensitive
465 file system). Stops at the first failure, without
466 cleaning the checkout. Use I<--start> to specify the earliest revision to
467 test, I<--end> to specify the most recent. Useful for validating a new
468 OS/CPU/compiler combination. For example
469
470     ../perl/Porting/bisect.pl --validate -le 'print "Hello from $]"'
471
472 If no testcase is specified, the default is to use F<t/TEST> to run
473 F<t/base/*.t>
474
475 =item *
476
477 --check-args
478
479 Validate the options and arguments, and exit silently if they are valid.
480
481 =item *
482
483 --check-shebang
484
485 Validate that the test case isn't an executable file with a
486 C<#!/usr/bin/perl> line (or similar). As F<bisect-runner.pl> does B<not>
487 prepend C<./perl> to the test case, a I<#!> line specifying an external
488 F<perl> binary will cause the test case to always run with I<that> F<perl>,
489 not the F<perl> built by the bisect runner. Likely this is not what you
490 wanted. If your test case is actually a wrapper script to run other
491 commands, you should run it with an explicit interpreter, to be clear. For
492 example, instead of C<../perl/Porting/bisect.pl ~/test/testcase.pl> you'd
493 run C<../perl/Porting/bisect.pl /usr/bin/perl ~/test/testcase.pl>
494
495 =item *
496
497 --usage
498
499 =item *
500
501 --help
502
503 =item *
504
505 -?
506
507 Display the usage information and exit.
508
509 =back
510
511 =cut
512
513 die "$0: Can't build $target" if defined $target && !grep {@targets} $target;
514
515 $j = "-j$j" if $j =~ /\A\d+\z/;
516
517 if (exists $options{make}) {
518     if (!exists $defines{make}) {
519         $defines{make} = $options{make};
520     }
521 } else {
522     $options{make} = 'make';
523 }
524
525 # Sadly, however hard we try, I don't think that it will be possible to build
526 # modules in ext/ on x86_64 Linux before commit e1666bf5602ae794 on 1999/12/29,
527 # which updated to MakeMaker 3.7, which changed from using a hard coded ld
528 # in the Makefile to $(LD). On x86_64 Linux the "linker" is gcc.
529
530 sub open_or_die {
531     my $file = shift;
532     my $mode = @_ ? shift : '<';
533     open my $fh, $mode, $file or croak("Can't open $file: $!");
534     ${*$fh{SCALAR}} = $file;
535     return $fh;
536 }
537
538 sub close_or_die {
539     my $fh = shift;
540     return if close $fh;
541     croak("Can't close: $!") unless ref $fh eq 'GLOB';
542     croak("Can't close ${*$fh{SCALAR}}: $!");
543 }
544
545 sub extract_from_file {
546     my ($file, $rx, $default) = @_;
547     my $fh = open_or_die($file);
548     while (<$fh>) {
549         my @got = $_ =~ $rx;
550         return wantarray ? @got : $got[0]
551             if @got;
552     }
553     return $default if defined $default;
554     return;
555 }
556
557 sub edit_file {
558     my ($file, $munger) = @_;
559     local $/;
560     my $fh = open_or_die($file);
561     my $orig = <$fh>;
562     die "Can't read $file: $!" unless defined $orig && close $fh;
563     my $new = $munger->($orig);
564     return if $new eq $orig;
565     $fh = open_or_die($file, '>');
566     print $fh $new or die "Can't print to $file: $!";
567     close_or_die($fh);
568 }
569
570 # AIX supplies a pre-historic patch program, which certainly predates Linux
571 # and is probably older than NT. It can't cope with unified diffs. Meanwhile,
572 # it's hard enough to get git diff to output context diffs, let alone git show,
573 # and nearly all the patches embedded here are unified. So it seems that the
574 # path of least resistance is to convert unified diffs to context diffs:
575
576 sub process_hunk {
577     my ($from_out, $to_out, $has_from, $has_to, $delete, $add) = @_;
578     ++$$has_from if $delete;
579     ++$$has_to if $add;
580
581     if ($delete && $add) {
582         $$from_out .= "! $_\n" foreach @$delete;
583         $$to_out .= "! $_\n" foreach @$add;
584     } elsif ($delete) {
585         $$from_out .= "- $_\n" foreach @$delete;
586     } elsif ($add) {
587          $$to_out .= "+ $_\n" foreach @$add;
588     }
589 }
590
591 # This isn't quite general purpose, as it can't cope with
592 # '\ No newline at end of file'
593 sub ud2cd {
594     my $diff_in = shift;
595     my $diff_out = '';
596
597     # Stuff before the diff
598     while ($diff_in =~ s/\A(?!\*\*\* )(?!--- )([^\n]*\n?)//ms && length $1) {
599         $diff_out .= $1;
600     }
601
602     if (!length $diff_in) {
603         die "That didn't seem to be a diff";
604     }
605
606     if ($diff_in =~ /\A\*\*\* /ms) {
607         warn "Seems to be a context diff already\n";
608         return $diff_out . $diff_in;
609     }
610
611     # Loop for files
612  FILE: while (1) {
613         if ($diff_in =~ s/\A((?:diff |index )[^\n]+\n)//ms) {
614             $diff_out .= $1;
615             next;
616         }
617         if ($diff_in !~ /\A--- /ms) {
618             # Stuff after the diff;
619             return $diff_out . $diff_in;
620         }
621         $diff_in =~ s/\A([^\n]+\n?)//ms;
622         my $line = $1;
623         die "Can't parse '$line'" unless $line =~ s/\A--- /*** /ms;
624         $diff_out .= $line;
625         $diff_in =~ s/\A([^\n]+\n?)//ms;
626         $line = $1;
627         die "Can't parse '$line'" unless $line =~ s/\A\+\+\+ /--- /ms;
628         $diff_out .= $line;
629
630         # Loop for hunks
631         while (1) {
632             next FILE
633                 unless $diff_in =~ s/\A\@\@ (-([0-9]+),([0-9]+) \+([0-9]+),([0-9]+)) \@\@[^\n]*\n?//;
634             my ($hunk, $from_start, $from_count, $to_start, $to_count)
635                 = ($1, $2, $3, $4, $5);
636             my $from_end = $from_start + $from_count - 1;
637             my $to_end = $to_start + $to_count - 1;
638             my ($from_out, $to_out, $has_from, $has_to, $add, $delete);
639             while (length $diff_in && ($from_count || $to_count)) {
640                 die "Confused in $hunk" unless $diff_in =~ s/\A([^\n]*)\n//ms;
641                 my $line = $1;
642                 $line = ' ' unless length $line;
643                 if ($line =~ /^ .*/) {
644                     process_hunk(\$from_out, \$to_out, \$has_from, \$has_to,
645                                  $delete, $add);
646                     undef $delete;
647                     undef $add;
648                     $from_out .= " $line\n";
649                     $to_out .= " $line\n";
650                     --$from_count;
651                     --$to_count;
652                 } elsif ($line =~ /^-(.*)/) {
653                     push @$delete, $1;
654                     --$from_count;
655                 } elsif ($line =~ /^\+(.*)/) {
656                     push @$add, $1;
657                     --$to_count;
658                 } else {
659                     die "Can't parse '$line' as part of hunk $hunk";
660                 }
661             }
662             process_hunk(\$from_out, \$to_out, \$has_from, \$has_to,
663                          $delete, $add);
664             die "No lines in hunk $hunk"
665                 unless length $from_out || length $to_out;
666             die "No changes in hunk $hunk"
667                 unless $has_from || $has_to;
668             $diff_out .= "***************\n";
669             $diff_out .= "*** $from_start,$from_end ****\n";
670             $diff_out .= $from_out if $has_from;
671             $diff_out .= "--- $to_start,$to_end ----\n";
672             $diff_out .= $to_out if $has_to;
673         }
674     }
675 }
676
677 {
678     my $use_context;
679
680     sub placate_patch_prog {
681         my $patch = shift;
682
683         if (!defined $use_context) {
684             my $version = `patch -v 2>&1`;
685             die "Can't run `patch -v`, \$?=$?, bailing out"
686                 unless defined $version;
687             if ($version =~ /Free Software Foundation/) {
688                 $use_context = 0;
689             } elsif ($version =~ /Header: patch\.c,v.*\blwall\b/) {
690                 # The system patch is older than Linux, and probably older than
691                 # Windows NT.
692                 $use_context = 1;
693             } else {
694                 # Don't know.
695                 $use_context = 0;
696             }
697         }
698
699         return $use_context ? ud2cd($patch) : $patch;
700     }
701 }
702
703 sub apply_patch {
704     my ($patch, $what, $files) = @_;
705     $what = 'patch' unless defined $what;
706     unless (defined $files) {
707         $patch =~ m!^--- a/(\S+)\n\+\+\+ b/\1!sm;
708         $files = " $1";
709     }
710     my $patch_to_use = placate_patch_prog($patch);
711     open my $fh, '|-', 'patch', '-p1' or die "Can't run patch: $!";
712     print $fh $patch_to_use;
713     return if close $fh;
714     print STDERR "Patch is <<'EOPATCH'\n${patch}EOPATCH\n";
715     print STDERR "\nConverted to a context diff <<'EOCONTEXT'\n${patch_to_use}EOCONTEXT\n"
716         if $patch_to_use ne $patch;
717     die "Can't $what$files: $?, $!";
718 }
719
720 sub apply_commit {
721     my ($commit, @files) = @_;
722     my $patch = `git show $commit @files`;
723     if (!defined $patch) {
724         die "Can't get commit $commit for @files: $?" if @files;
725         die "Can't get commit $commit: $?";
726     }
727     apply_patch($patch, "patch $commit", @files ? " for @files" : '');
728 }
729
730 sub revert_commit {
731     my ($commit, @files) = @_;
732     my $patch = `git show -R $commit @files`;
733     if (!defined $patch) {
734         die "Can't get revert commit $commit for @files: $?" if @files;
735         die "Can't get revert commit $commit: $?";
736     }
737     apply_patch($patch, "revert $commit", @files ? " for @files" : '');
738 }
739
740 sub checkout_file {
741     my ($file, $commit) = @_;
742     $commit ||= 'blead';
743     system "git show $commit:$file > $file </dev/null"
744         and die "Could not extract $file at revision $commit";
745 }
746
747 sub check_shebang {
748     my $file = shift;
749     return unless -e $file;
750     if (!-x $file) {
751         die "$file is not executable.
752 system($file, ...) is always going to fail.
753
754 Bailing out";
755     }
756     my $fh = open_or_die($file);
757     my $line = <$fh>;
758     return unless $line =~ m{\A#!(/\S+/perl\S*)\s};
759     die "$file will always be run by $1
760 It won't be tested by the ./perl we build.
761 If you intended to run it with that perl binary, please change your
762 test case to
763
764     $1 @ARGV
765
766 If you intended to test it with the ./perl we build, please change your
767 test case to
768
769     ./perl -Ilib @ARGV
770
771 [You may also need to add -- before ./perl to prevent that -Ilib as being
772 parsed as an argument to bisect.pl]
773
774 Bailing out";
775 }
776
777 sub clean {
778     if ($options{clean}) {
779         # Needed, because files that are build products in this checked out
780         # version might be in git in the next desired version.
781         system 'git clean -dxf </dev/null';
782         # Needed, because at some revisions the build alters checked out files.
783         # (eg pod/perlapi.pod). Also undoes any changes to makedepend.SH
784         system 'git reset --hard HEAD </dev/null';
785     }
786 }
787
788 sub skip {
789     my $reason = shift;
790     clean();
791     warn "skipping - $reason";
792     exit 125;
793 }
794
795 sub report_and_exit {
796     my ($ret, $pass, $fail, $desc) = @_;
797
798     clean();
799
800     my $got = ($options{'expect-pass'} ? !$ret : $ret) ? 'good' : 'bad';
801     if ($ret) {
802         print "$got - $fail $desc\n";
803     } else {
804         print "$got - $pass $desc\n";
805     }
806
807     exit($got eq 'bad');
808 }
809
810 sub match_and_exit {
811     my ($target, @globs) = @_;
812     my $matches = 0;
813     my $re = qr/$match/;
814     my @files;
815
816     if (@globs) {
817         require File::Glob;
818         foreach (sort map { File::Glob::bsd_glob($_)} @globs) {
819             if (!-f $_ || !-r _) {
820                 warn "Skipping matching '$_' as it is not a readable file\n";
821             } else {
822                 push @files, $_;
823             }
824         }
825     } else {
826         local $/ = "\0";
827         @files = defined $target ? `git ls-files -o -z`: `git ls-files -z`;
828         chomp @files;
829     }
830
831     foreach my $file (@files) {
832         my $fh = open_or_die($file);
833         while (<$fh>) {
834             if ($_ =~ $re) {
835                 ++$matches;
836                 if (tr/\t\r\n -~\200-\377//c) {
837                     print "Binary file $file matches\n";
838                 } else {
839                     $_ .= "\n" unless /\n\z/;
840                     print "$file: $_";
841                 }
842             }
843         }
844         close_or_die($fh);
845     }
846     report_and_exit(!$matches,
847                     $matches == 1 ? '1 match for' : "$matches matches for",
848                     'no matches for', $match);
849 }
850
851 # Not going to assume that system perl is yet new enough to have autodie
852 system 'git clean -dxf </dev/null' and die;
853
854 if (!defined $target) {
855     match_and_exit(undef, @ARGV) if $match;
856     $target = 'test_prep';
857 }
858
859 skip('no Configure - is this the //depot/perlext/Compiler branch?')
860     unless -f 'Configure';
861
862 my $case_insensitive;
863 {
864     my ($dev_C, $ino_C) = stat 'Configure';
865     die "Could not stat Configure: $!" unless defined $dev_C;
866     my ($dev_c, $ino_c) = stat 'configure';
867     ++$case_insensitive
868         if defined $dev_c && $dev_C == $dev_c && $ino_C == $ino_c;
869 }
870
871 # This changes to PERL_VERSION in 4d8076ea25903dcb in 1999
872 my $major
873     = extract_from_file('patchlevel.h',
874                         qr/^#define\s+(?:PERL_VERSION|PATCHLEVEL)\s+(\d+)\s/,
875                         0);
876
877 patch_Configure();
878 patch_hints();
879
880 # if Encode is not needed for the test, you can speed up the bisect by
881 # excluding it from the runs with -Dnoextensions=Encode
882 # ccache is an easy win. Remove it if it causes problems.
883 # Commit 1cfa4ec74d4933da adds ignore_versioned_solibs to Configure, and sets it
884 # to true in hints/linux.sh
885 # On dromedary, from that point on, Configure (by default) fails to find any
886 # libraries, because it scans /usr/local/lib /lib /usr/lib, which only contain
887 # versioned libraries. Without -lm, the build fails.
888 # Telling /usr/local/lib64 /lib64 /usr/lib64 works from that commit onwards,
889 # until commit faae14e6e968e1c0 adds it to the hints.
890 # However, prior to 1cfa4ec74d4933da telling Configure the truth doesn't work,
891 # because it will spot versioned libraries, pass them to the compiler, and then
892 # bail out pretty early on. Configure won't let us override libswanted, but it
893 # will let us override the entire libs list.
894
895 unless (extract_from_file('Configure', 'ignore_versioned_solibs')) {
896     # Before 1cfa4ec74d4933da, so force the libs list.
897
898     my @libs;
899     # This is the current libswanted list from Configure, less the libs removed
900     # by current hints/linux.sh
901     foreach my $lib (qw(sfio socket inet nsl nm ndbm gdbm dbm db malloc dl dld
902                         ld sun m crypt sec util c cposix posix ucb BSD)) {
903         foreach my $dir (@paths) {
904             next unless -f "$dir/lib$lib.so";
905             push @libs, "-l$lib";
906             last;
907         }
908     }
909     $defines{libs} = \@libs unless exists $defines{libs};
910 }
911
912 $defines{usenm} = undef
913     if $major < 2 && !exists $defines{usenm};
914
915 my ($missing, $created_dirs);
916 ($missing, $created_dirs) = force_manifest()
917     if $options{'force-manifest'};
918
919 my @ARGS = '-dEs';
920 foreach my $key (sort keys %defines) {
921     my $val = $defines{$key};
922     if (ref $val) {
923         push @ARGS, "-D$key=@$val";
924     } elsif (!defined $val) {
925         push @ARGS, "-U$key";
926     } elsif (!length $val) {
927         push @ARGS, "-D$key";
928     } else {
929         $val = "" if $val eq "\0";
930         push @ARGS, "-D$key=$val";
931     }
932 }
933 push @ARGS, map {"-A$_"} @{$options{A}};
934
935 # </dev/null because it seems that some earlier versions of Configure can
936 # call commands in a way that now has them reading from stdin (and hanging)
937 my $pid = fork;
938 die "Can't fork: $!" unless defined $pid;
939 if (!$pid) {
940     open STDIN, '<', '/dev/null';
941     # If a file in MANIFEST is missing, Configure asks if you want to
942     # continue (the default being 'n'). With stdin closed or /dev/null,
943     # it exits immediately and the check for config.sh below will skip.
944     exec './Configure', @ARGS;
945     die "Failed to start Configure: $!";
946 }
947 waitpid $pid, 0
948     or die "wait for Configure, pid $pid failed: $!";
949
950 patch_SH();
951
952 if (-f 'config.sh') {
953     # Emulate noextensions if Configure doesn't support it.
954     fake_noextensions()
955         if $major < 10 && $defines{noextensions};
956     system './Configure -S </dev/null' and die;
957 }
958
959 if ($target =~ /config\.s?h/) {
960     match_and_exit($target, @ARGV) if $match && -f $target;
961     report_and_exit(!-f $target, 'could build', 'could not build', $target)
962         if $options{'test-build'};
963
964     skip("could not build $target") unless -f $target;
965
966     my $ret = system @ARGV;
967     report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
968 } elsif (!-f 'config.sh') {
969     # Skip if something went wrong with Configure
970
971     skip('could not build config.sh');
972 }
973
974 force_manifest_cleanup($missing, $created_dirs)
975         if $missing;
976
977 if($options{'force-regen'}
978    && extract_from_file('Makefile', qr/\bregen_headers\b/)) {
979     # regen_headers was added in e50aee73b3d4c555, patch.1m for perl5.001
980     # It's not worth faking it for earlier revisions.
981     system "make regen_headers </dev/null"
982         and die;
983 }
984
985 patch_C();
986 patch_ext();
987
988 # Parallel build for miniperl is safe
989 system "$options{make} $j miniperl </dev/null";
990
991 # This is the file we expect make to create
992 my $expected_file = $target =~ /^test/ ? 't/perl'
993     : $target eq 'Fcntl' ? "lib/auto/Fcntl/Fcntl.$Config{so}"
994     : $target;
995 # This is the target we tell make to build in order to get $expected_file
996 my $real_target = $target eq 'Fcntl' ? $expected_file : $target;
997
998 if ($target ne 'miniperl') {
999     # Nearly all parallel build issues fixed by 5.10.0. Untrustworthy before that.
1000     $j = '' if $major < 10;
1001
1002     if ($real_target eq 'test_prep') {
1003         if ($major < 8) {
1004             # test-prep was added in 5.004_01, 3e3baf6d63945cb6.
1005             # renamed to test_prep in 2001 in 5fe84fd29acaf55c.
1006             # earlier than that, just make test. It will be fast enough.
1007             $real_target = extract_from_file('Makefile.SH',
1008                                              qr/^(test[-_]prep):/,
1009                                              'test');
1010         }
1011     }
1012
1013     system "$options{make} $j $real_target </dev/null";
1014 }
1015
1016 my $expected_file_found = $expected_file =~ /perl$/
1017     ? -x $expected_file : -r $expected_file;
1018
1019 if ($expected_file_found && $expected_file eq 't/perl') {
1020     # Check that it isn't actually pointing to ../miniperl, which will happen
1021     # if the sanity check ./miniperl -Ilib -MExporter -e '<?>' fails, and
1022     # Makefile tries to run minitest.
1023
1024     # Of course, helpfully sometimes it's called ../perl, other times .././perl
1025     # and who knows if that list is exhaustive...
1026     my ($dev0, $ino0) = stat 't/perl';
1027     my ($dev1, $ino1) = stat 'perl';
1028     unless (defined $dev0 && defined $dev1 && $dev0 == $dev1 && $ino0 == $ino1) {
1029         undef $expected_file_found;
1030         my $link = readlink $expected_file;
1031         warn "'t/perl' => '$link', not 'perl'";
1032         die "Could not realink t/perl: $!" unless defined $link;
1033     }
1034 }
1035
1036 if ($options{'test-build'}) {
1037     report_and_exit(!$expected_file_found, 'could build', 'could not build',
1038                     $real_target);
1039 } elsif (!$expected_file_found) {
1040     skip("could not build $real_target");
1041 }
1042
1043 match_and_exit($real_target, @ARGV) if $match;
1044
1045 if (defined $options{'one-liner'}) {
1046     my $exe = $target =~ /^(?:perl$|test)/ ? 'perl' : 'miniperl';
1047     unshift @ARGV, '-e', $options{'one-liner'};
1048     unshift @ARGV, '-l' if $options{l};
1049     unshift @ARGV, '-w' if $options{w};
1050     unshift @ARGV, "./$exe", '-Ilib';
1051 }
1052
1053 # This is what we came here to run:
1054
1055 if (exists $Config{ldlibpthname}) {
1056     require Cwd;
1057     my $varname = $Config{ldlibpthname};
1058     my $cwd = Cwd::getcwd();
1059     if (defined $ENV{$varname}) {
1060         $ENV{$varname} = $cwd . $Config{path_sep} . $ENV{$varname};
1061     } else {
1062         $ENV{$varname} = $cwd;
1063     }
1064 }
1065
1066 my $ret = system @ARGV;
1067
1068 report_and_exit($ret, 'zero exit from', 'non-zero exit from', "@ARGV");
1069
1070 ############################################################################
1071 #
1072 # Patching, editing and faking routines only below here.
1073 #
1074 ############################################################################
1075
1076 sub fake_noextensions {
1077     edit_file('config.sh', sub {
1078                   my @lines = split /\n/, shift;
1079                   my @ext = split /\s+/, $defines{noextensions};
1080                   foreach (@lines) {
1081                       next unless /^extensions=/ || /^dynamic_ext/;
1082                       foreach my $ext (@ext) {
1083                           s/\b$ext( )?\b/$1/;
1084                       }
1085                   }
1086                   return join "\n", @lines;
1087               });
1088 }
1089
1090 sub force_manifest {
1091     my (@missing, @created_dirs);
1092     my $fh = open_or_die('MANIFEST');
1093     while (<$fh>) {
1094         next unless /^(\S+)/;
1095         # -d is special case needed (at least) between 27332437a2ed1941 and
1096         # bf3d9ec563d25054^ inclusive, as manifest contains ext/Thread/Thread
1097         push @missing, $1
1098             unless -f $1 || -d $1;
1099     }
1100     close_or_die($fh);
1101
1102     foreach my $pathname (@missing) {
1103         my @parts = split '/', $pathname;
1104         my $leaf = pop @parts;
1105         my $path = '.';
1106         while (@parts) {
1107             $path .= '/' . shift @parts;
1108             next if -d $path;
1109             mkdir $path, 0700 or die "Can't create $path: $!";
1110             unshift @created_dirs, $path;
1111         }
1112         $fh = open_or_die($pathname, '>');
1113         close_or_die($fh);
1114         chmod 0, $pathname or die "Can't chmod 0 $pathname: $!";
1115     }
1116     return \@missing, \@created_dirs;
1117 }
1118
1119 sub force_manifest_cleanup {
1120     my ($missing, $created_dirs) = @_;
1121     # This is probably way too paranoid:
1122     my @errors;
1123     require Fcntl;
1124     foreach my $file (@$missing) {
1125         my (undef, undef, $mode, undef, undef, undef, undef, $size)
1126             = stat $file;
1127         if (!defined $mode) {
1128             push @errors, "Added file $file has been deleted by Configure";
1129             next;
1130         }
1131         if (Fcntl::S_IMODE($mode) != 0) {
1132             push @errors,
1133                 sprintf 'Added file %s had mode changed by Configure to %03o',
1134                     $file, $mode;
1135         }
1136         if ($size != 0) {
1137             push @errors,
1138                 "Added file $file had sized changed by Configure to $size";
1139         }
1140         unlink $file or die "Can't unlink $file: $!";
1141     }
1142     foreach my $dir (@$created_dirs) {
1143         rmdir $dir or die "Can't rmdir $dir: $!";
1144     }
1145     skip("@errors")
1146         if @errors;
1147 }
1148
1149 sub patch_Configure {
1150     if ($major < 1) {
1151         if (extract_from_file('Configure',
1152                               qr/^\t\t\*=\*\) echo "\$1" >> \$optdef;;$/)) {
1153             # This is "        Spaces now allowed in -D command line options.",
1154             # part of commit ecfc54246c2a6f42
1155             apply_patch(<<'EOPATCH');
1156 diff --git a/Configure b/Configure
1157 index 3d3b38d..78ffe16 100755
1158 --- a/Configure
1159 +++ b/Configure
1160 @@ -652,7 +777,8 @@ while test $# -gt 0; do
1161                         echo "$me: use '-U symbol=', not '-D symbol='." >&2
1162                         echo "$me: ignoring -D $1" >&2
1163                         ;;
1164 -               *=*) echo "$1" >> $optdef;;
1165 +               *=*) echo "$1" | \
1166 +                               sed -e "s/'/'\"'\"'/g" -e "s/=\(.*\)/='\1'/" >> $optdef;;
1167                 *) echo "$1='define'" >> $optdef;;
1168                 esac
1169                 shift
1170 EOPATCH
1171         }
1172
1173         if (extract_from_file('Configure', qr/^if \$contains 'd_namlen' \$xinc\b/)) {
1174             # Configure's original simple "grep" for d_namlen falls foul of the
1175             # approach taken by the glibc headers:
1176             # #ifdef _DIRENT_HAVE_D_NAMLEN
1177             # # define _D_EXACT_NAMLEN(d) ((d)->d_namlen)
1178             #
1179             # where _DIRENT_HAVE_D_NAMLEN is not defined on Linux.
1180             # This is also part of commit ecfc54246c2a6f42
1181             apply_patch(<<'EOPATCH');
1182 diff --git a/Configure b/Configure
1183 index 3d3b38d..78ffe16 100755
1184 --- a/Configure
1185 +++ b/Configure
1186 @@ -3935,7 +4045,8 @@ $rm -f try.c
1187  
1188  : see if the directory entry stores field length
1189  echo " "
1190 -if $contains 'd_namlen' $xinc >/dev/null 2>&1; then
1191 +$cppstdin $cppflags $cppminus < "$xinc" > try.c
1192 +if $contains 'd_namlen' try.c >/dev/null 2>&1; then
1193         echo "Good, your directory entry keeps length information in d_namlen." >&4
1194         val="$define"
1195  else
1196 EOPATCH
1197         }
1198     }
1199
1200     if ($major < 2
1201         && !extract_from_file('Configure',
1202                               qr/Try to guess additional flags to pick up local libraries/)) {
1203         my $mips = extract_from_file('Configure',
1204                                      qr!(''\) if (?:\./)?mips; then)!);
1205         # This is part of perl-5.001n. It's needed, to add -L/usr/local/lib to
1206         # theld flags if libraries are found there. It shifts the code to set up
1207         # libpth earlier, and then adds the code to add libpth entries to
1208         # ldflags
1209         # mips was changed to ./mips in ecfc54246c2a6f42, perl5.000 patch.0g
1210         apply_patch(sprintf <<'EOPATCH', $mips);
1211 diff --git a/Configure b/Configure
1212 index 53649d5..0635a6e 100755
1213 --- a/Configure
1214 +++ b/Configure
1215 @@ -2749,6 +2749,52 @@ EOM
1216         ;;
1217  esac
1218  
1219 +: Set private lib path
1220 +case "$plibpth" in
1221 +'') if ./mips; then
1222 +               plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
1223 +       fi;;
1224 +esac
1225 +case "$libpth" in
1226 +' ') dlist='';;
1227 +'') dlist="$plibpth $glibpth";;
1228 +*) dlist="$libpth";;
1229 +esac
1230 +
1231 +: Now check and see which directories actually exist, avoiding duplicates
1232 +libpth=''
1233 +for xxx in $dlist
1234 +do
1235 +    if $test -d $xxx; then
1236 +               case " $libpth " in
1237 +               *" $xxx "*) ;;
1238 +               *) libpth="$libpth $xxx";;
1239 +               esac
1240 +    fi
1241 +done
1242 +$cat <<'EOM'
1243 +
1244 +Some systems have incompatible or broken versions of libraries.  Among
1245 +the directories listed in the question below, please remove any you
1246 +know not to be holding relevant libraries, and add any that are needed.
1247 +Say "none" for none.
1248 +
1249 +EOM
1250 +case "$libpth" in
1251 +'') dflt='none';;
1252 +*)
1253 +       set X $libpth
1254 +       shift
1255 +       dflt=${1+"$@"}
1256 +       ;;
1257 +esac
1258 +rp="Directories to use for library searches?"
1259 +. ./myread
1260 +case "$ans" in
1261 +none) libpth=' ';;
1262 +*) libpth="$ans";;
1263 +esac
1264 +
1265  : flags used in final linking phase
1266  case "$ldflags" in
1267  '') if ./venix; then
1268 @@ -2765,6 +2811,23 @@ case "$ldflags" in
1269         ;;
1270  *) dflt="$ldflags";;
1271  esac
1272 +
1273 +: Possible local library directories to search.
1274 +loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
1275 +loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
1276 +
1277 +: Try to guess additional flags to pick up local libraries.
1278 +for thislibdir in $libpth; do
1279 +       case " $loclibpth " in
1280 +       *" $thislibdir "*)
1281 +               case "$dflt " in 
1282 +               "-L$thislibdir ") ;;
1283 +               *)  dflt="$dflt -L$thislibdir" ;;
1284 +               esac
1285 +               ;;
1286 +       esac
1287 +done
1288 +
1289  echo " "
1290  rp="Any additional ld flags (NOT including libraries)?"
1291  . ./myread
1292 @@ -2828,52 +2891,6 @@ n) echo "OK, that should do.";;
1293  esac
1294  $rm -f try try.* core
1295  
1296 -: Set private lib path
1297 -case "$plibpth" in
1298 -%s
1299 -               plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
1300 -       fi;;
1301 -esac
1302 -case "$libpth" in
1303 -' ') dlist='';;
1304 -'') dlist="$plibpth $glibpth";;
1305 -*) dlist="$libpth";;
1306 -esac
1307 -
1308 -: Now check and see which directories actually exist, avoiding duplicates
1309 -libpth=''
1310 -for xxx in $dlist
1311 -do
1312 -    if $test -d $xxx; then
1313 -               case " $libpth " in
1314 -               *" $xxx "*) ;;
1315 -               *) libpth="$libpth $xxx";;
1316 -               esac
1317 -    fi
1318 -done
1319 -$cat <<'EOM'
1320 -
1321 -Some systems have incompatible or broken versions of libraries.  Among
1322 -the directories listed in the question below, please remove any you
1323 -know not to be holding relevant libraries, and add any that are needed.
1324 -Say "none" for none.
1325 -
1326 -EOM
1327 -case "$libpth" in
1328 -'') dflt='none';;
1329 -*)
1330 -       set X $libpth
1331 -       shift
1332 -       dflt=${1+"$@"}
1333 -       ;;
1334 -esac
1335 -rp="Directories to use for library searches?"
1336 -. ./myread
1337 -case "$ans" in
1338 -none) libpth=' ';;
1339 -*) libpth="$ans";;
1340 -esac
1341 -
1342  : compute shared library extension
1343  case "$so" in
1344  '')
1345 EOPATCH
1346     }
1347
1348     if ($major < 5 && extract_from_file('Configure',
1349                                         qr!if \$cc \$ccflags try\.c -o try >/dev/null 2>&1; then!)) {
1350         # Analogous to the more general fix of dfe9444ca7881e71
1351         # Without this flags such as -m64 may not be passed to this compile,
1352         # which results in a byteorder of '1234' instead of '12345678', which
1353         # can then cause crashes.
1354
1355         if (extract_from_file('Configure', qr/xxx_prompt=y/)) {
1356             # 8e07c86ebc651fe9 or later
1357             # ("This is my patch  patch.1n  for perl5.001.")
1358             apply_patch(<<'EOPATCH');
1359 diff --git a/Configure b/Configure
1360 index 62249dd..c5c384e 100755
1361 --- a/Configure
1362 +++ b/Configure
1363 @@ -8247,7 +8247,7 @@ main()
1364  }
1365  EOCP
1366         xxx_prompt=y
1367 -       if $cc $ccflags try.c -o try >/dev/null 2>&1 && ./try > /dev/null; then
1368 +       if $cc $ccflags $ldflags try.c -o try >/dev/null 2>&1 && ./try > /dev/null; then
1369                 dflt=`./try`
1370                 case "$dflt" in
1371                 [1-4][1-4][1-4][1-4]|12345678|87654321)
1372 EOPATCH
1373         } else {
1374             apply_patch(<<'EOPATCH');
1375 diff --git a/Configure b/Configure
1376 index 53649d5..f1cd64a 100755
1377 --- a/Configure
1378 +++ b/Configure
1379 @@ -6362,7 +6362,7 @@ main()
1380         printf("\n");
1381  }
1382  EOCP
1383 -       if $cc $ccflags try.c -o try >/dev/null 2>&1 ; then
1384 +       if $cc $ccflags $ldflags try.c -o try >/dev/null 2>&1 ; then
1385                 dflt=`./try`
1386                 case "$dflt" in
1387                 ????|????????) echo "(The test program ran ok.)";;
1388 EOPATCH
1389         }
1390     }
1391
1392     if ($major < 6 && !extract_from_file('Configure',
1393                                          qr!^\t-A\)$!)) {
1394         # This adds the -A option to Configure, which is incredibly useful
1395         # Effectively this is commits 02e93a22d20fc9a5, 5f83a3e9d818c3ad,
1396         # bde6b06b2c493fef, f7c3111703e46e0c and 2 lines of trailing whitespace
1397         # removed by 613d6c3e99b9decc, but applied at slightly different
1398         # locations to ensure a clean patch back to 5.000
1399         # Note, if considering patching to the intermediate revisions to fix
1400         # bugs in -A handling, f7c3111703e46e0c is from 2002, and hence
1401         # $major == 8
1402
1403         # To add to the fun, early patches add -K and -O options, and it's not
1404         # trivial to get patch to put the C<. ./posthint.sh> in the right place
1405         edit_file('Configure', sub {
1406                       my $code = shift;
1407                       $code =~ s/(optstr = ")([^"]+";\s*# getopt-style specification)/$1A:$2/
1408                           or die "Substitution failed";
1409                       $code =~ s!^(: who configured the system)!
1410 touch posthint.sh
1411 . ./posthint.sh
1412
1413 $1!ms
1414                           or die "Substitution failed";
1415                       return $code;
1416                   });
1417         apply_patch(<<'EOPATCH');
1418 diff --git a/Configure b/Configure
1419 index 4b55fa6..60c3c64 100755
1420 --- a/Configure
1421 +++ b/Configure
1422 @@ -1150,6 +1150,7 @@ set X `for arg in "$@"; do echo "X$arg"; done |
1423  eval "set $*"
1424  shift
1425  rm -f options.awk
1426 +rm -f posthint.sh
1427  
1428  : set up default values
1429  fastread=''
1430 @@ -1172,6 +1173,56 @@ while test $# -gt 0; do
1431         case "$1" in
1432         -d) shift; fastread=yes;;
1433         -e) shift; alldone=cont;;
1434 +       -A)
1435 +           shift
1436 +           xxx=''
1437 +           yyy="$1"
1438 +           zzz=''
1439 +           uuu=undef
1440 +           case "$yyy" in
1441 +            *=*) zzz=`echo "$yyy"|sed 's!=.*!!'`
1442 +                 case "$zzz" in
1443 +                 *:*) zzz='' ;;
1444 +                 *)   xxx=append
1445 +                      zzz=" "`echo "$yyy"|sed 's!^[^=]*=!!'`
1446 +                      yyy=`echo "$yyy"|sed 's!=.*!!'` ;;
1447 +                 esac
1448 +                 ;;
1449 +            esac
1450 +            case "$xxx" in
1451 +            '')  case "$yyy" in
1452 +                 *:*) xxx=`echo "$yyy"|sed 's!:.*!!'`
1453 +                      yyy=`echo "$yyy"|sed 's!^[^:]*:!!'`
1454 +                      zzz=`echo "$yyy"|sed 's!^[^=]*=!!'`
1455 +                      yyy=`echo "$yyy"|sed 's!=.*!!'` ;;
1456 +                 *)   xxx=`echo "$yyy"|sed 's!:.*!!'`
1457 +                      yyy=`echo "$yyy"|sed 's!^[^:]*:!!'` ;;
1458 +                 esac
1459 +                 ;;
1460 +            esac
1461 +           case "$xxx" in
1462 +           append)
1463 +               echo "$yyy=\"\${$yyy}$zzz\""    >> posthint.sh ;;
1464 +           clear)
1465 +               echo "$yyy=''"                  >> posthint.sh ;;
1466 +           define)
1467 +               case "$zzz" in
1468 +               '') zzz=define ;;
1469 +               esac
1470 +               echo "$yyy='$zzz'"              >> posthint.sh ;;
1471 +           eval)
1472 +               echo "eval \"$yyy=$zzz\""       >> posthint.sh ;;
1473 +           prepend)
1474 +               echo "$yyy=\"$zzz\${$yyy}\""    >> posthint.sh ;;
1475 +           undef)
1476 +               case "$zzz" in
1477 +               '') zzz="$uuu" ;;
1478 +               esac
1479 +               echo "$yyy=$zzz"                >> posthint.sh ;;
1480 +            *)  echo "$me: unknown -A command '$xxx', ignoring -A $1" >&2 ;;
1481 +           esac
1482 +           shift
1483 +           ;;
1484         -f)
1485                 shift
1486                 cd ..
1487 EOPATCH
1488     }
1489
1490     if ($major < 8 && $^O eq 'aix') {
1491         edit_file('Configure', sub {
1492                       my $code = shift;
1493                       # Replicate commit a8c676c69574838b
1494                       # Whitespace allowed at the ends of /lib/syscalls.exp lines
1495                       # and half of commit c6912327ae30e6de
1496                       # AIX syscalls.exp scan: the syscall might be marked 32, 3264, or 64
1497                       $code =~ s{(\bsed\b.*\bsyscall)(?:\[0-9\]\*)?(\$.*/lib/syscalls\.exp)}
1498                                 {$1 . "[0-9]*[ \t]*" . $2}e;
1499                       return $code;
1500                   });
1501     }
1502
1503     if ($major < 8 && !extract_from_file('Configure',
1504                                          qr/^\t\tif test ! -t 0; then$/)) {
1505         # Before dfe9444ca7881e71, Configure would refuse to run if stdin was
1506         # not a tty. With that commit, the tty requirement was dropped for -de
1507         # and -dE
1508         # Commit aaeb8e512e8e9e14 dropped the tty requirement for -S
1509         # For those older versions, it's probably easiest if we simply remove
1510         # the sanity test.
1511         edit_file('Configure', sub {
1512                       my $code = shift;
1513                       $code =~ s/test ! -t 0/test Perl = rules/;
1514                       return $code;
1515                   });
1516     }
1517
1518     if ($major == 8 || $major == 9) {
1519         # Fix symbol detection to that of commit 373dfab3839ca168 if it's any
1520         # intermediate version 5129fff43c4fe08c or later, as the intermediate
1521         # versions don't work correctly on (at least) Sparc Linux.
1522         # 5129fff43c4fe08c adds the first mention of mistrustnm.
1523         # 373dfab3839ca168 removes the last mention of lc=""
1524         edit_file('Configure', sub {
1525                       my $code = shift;
1526                       return $code
1527                           if $code !~ /\btc="";/; # 373dfab3839ca168 or later
1528                       return $code
1529                           if $code !~ /\bmistrustnm\b/; # before 5129fff43c4fe08c
1530                       my $fixed = <<'EOC';
1531
1532 : is a C symbol defined?
1533 csym='tlook=$1;
1534 case "$3" in
1535 -v) tf=libc.tmp; tdc="";;
1536 -a) tf=libc.tmp; tdc="[]";;
1537 *) tlook="^$1\$"; tf=libc.list; tdc="()";;
1538 esac;
1539 tx=yes;
1540 case "$reuseval-$4" in
1541 true-) ;;
1542 true-*) tx=no; eval "tval=\$$4"; case "$tval" in "") tx=yes;; esac;;
1543 esac;
1544 case "$tx" in
1545 yes)
1546         tval=false;
1547         if $test "$runnm" = true; then
1548                 if $contains $tlook $tf >/dev/null 2>&1; then
1549                         tval=true;
1550                 elif $test "$mistrustnm" = compile -o "$mistrustnm" = run; then
1551                         echo "void *(*(p()))$tdc { extern void *$1$tdc; return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
1552                         $cc -o try $optimize $ccflags $ldflags try.c >/dev/null 2>&1 $libs && tval=true;
1553                         $test "$mistrustnm" = run -a -x try && { $run ./try$_exe >/dev/null 2>&1 || tval=false; };
1554                         $rm -f try$_exe try.c core core.* try.core;
1555                 fi;
1556         else
1557                 echo "void *(*(p()))$tdc { extern void *$1$tdc; return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
1558                 $cc -o try $optimize $ccflags $ldflags try.c $libs >/dev/null 2>&1 && tval=true;
1559                 $rm -f try$_exe try.c;
1560         fi;
1561         ;;
1562 *)
1563         case "$tval" in
1564         $define) tval=true;;
1565         *) tval=false;;
1566         esac;
1567         ;;
1568 esac;
1569 eval "$2=$tval"'
1570
1571 EOC
1572                       $code =~ s/\n: is a C symbol defined\?\n.*?\neval "\$2=\$tval"'\n\n/$fixed/sm
1573                           or die "substitution failed";
1574                       return $code;
1575                   });
1576     }
1577
1578     if ($major < 10
1579         && extract_from_file('Configure', qr/^set malloc\.h i_malloc$/)) {
1580         # This is commit 01d07975f7ef0e7d, trimmed, with $compile inlined as
1581         # prior to bd9b35c97ad661cc Configure had the malloc.h test before the
1582         # definition of $compile.
1583         apply_patch(<<'EOPATCH');
1584 diff --git a/Configure b/Configure
1585 index 3d2e8b9..6ce7766 100755
1586 --- a/Configure
1587 +++ b/Configure
1588 @@ -6743,5 +6743,22 @@ set d_dosuid
1589  
1590  : see if this is a malloc.h system
1591 -set malloc.h i_malloc
1592 -eval $inhdr
1593 +: we want a real compile instead of Inhdr because some systems have a
1594 +: malloc.h that just gives a compile error saying to use stdlib.h instead
1595 +echo " "
1596 +$cat >try.c <<EOCP
1597 +#include <stdlib.h>
1598 +#include <malloc.h>
1599 +int main () { return 0; }
1600 +EOCP
1601 +set try
1602 +if $cc $optimize $ccflags $ldflags -o try $* try.c $libs > /dev/null 2>&1; then
1603 +    echo "<malloc.h> found." >&4
1604 +    val="$define"
1605 +else
1606 +    echo "<malloc.h> NOT found." >&4
1607 +    val="$undef"
1608 +fi
1609 +$rm -f try.c try
1610 +set i_malloc
1611 +eval $setvar
1612  
1613 EOPATCH
1614     }
1615 }
1616
1617 sub patch_hints {
1618     if ($^O eq 'freebsd') {
1619         # There are rather too many version-specific FreeBSD hints fixes to
1620         # patch individually. Also, more than once the FreeBSD hints file has
1621         # been written in what turned out to be a rather non-future-proof style,
1622         # with case statements treating the most recent version as the
1623         # exception, instead of treating previous versions' behaviour explicitly
1624         # and changing the default to cater for the current behaviour. (As
1625         # strangely, future versions inherit the current behaviour.)
1626         checkout_file('hints/freebsd.sh');
1627     } elsif ($^O eq 'darwin') {
1628         if ($major < 8) {
1629             # We can't build on darwin without some of the data in the hints
1630             # file. Probably less surprising to use the earliest version of
1631             # hints/darwin.sh and then edit in place just below, than use
1632             # blead's version, as that would create a discontinuity at
1633             # f556e5b971932902 - before it, hints bugs would be "fixed", after
1634             # it they'd resurface. This way, we should give the illusion of
1635             # monotonic bug fixing.
1636             my $faking_it;
1637             if (!-f 'hints/darwin.sh') {
1638                 checkout_file('hints/darwin.sh', 'f556e5b971932902');
1639                 ++$faking_it;
1640             }
1641
1642             edit_file('hints/darwin.sh', sub {
1643                       my $code = shift;
1644                       # Part of commit 8f4f83badb7d1ba9, which mostly undoes
1645                       # commit 0511a818910f476c.
1646                       $code =~ s/^cppflags='-traditional-cpp';$/cppflags="\${cppflags} -no-cpp-precomp"/m;
1647                       # commit 14c11978e9b52e08/803bb6cc74d36a3f
1648                       # Without this, code in libperl.bundle links against op.o
1649                       # in preference to opmini.o on the linker command line,
1650                       # and hence miniperl tries to use File::Glob instead of
1651                       # csh
1652                       $code =~ s/^(lddlflags=)/ldflags="\${ldflags} -flat_namespace"\n$1/m;
1653                       # f556e5b971932902 also patches Makefile.SH with some
1654                       # special case code to deal with useshrplib for darwin.
1655                       # Given that post 5.8.0 the darwin hints default was
1656                       # changed to false, and it would be very complex to splice
1657                       # in that code in various versions of Makefile.SH back
1658                       # to 5.002, lets just turn it off.
1659                       $code =~ s/^useshrplib='true'/useshrplib='false'/m
1660                           if $faking_it;
1661
1662                       # Part of commit d235852b65d51c44
1663                       # Don't do this on a case sensitive HFS+ partition, as it
1664                       # breaks the build for 5.003 and earlier.
1665                       if ($case_insensitive
1666                           && $code !~ /^firstmakefile=GNUmakefile/) {
1667                           $code .= "\nfirstmakefile=GNUmakefile;\n";
1668                       }
1669
1670                       return $code;
1671                   });
1672         }
1673     } elsif ($^O eq 'netbsd') {
1674         if ($major < 6) {
1675             # These are part of commit 099685bc64c7dbce
1676             edit_file('hints/netbsd.sh', sub {
1677                           my $code = shift;
1678                           my $fixed = <<'EOC';
1679 case "$osvers" in
1680 0.9|0.8*)
1681         usedl="$undef"
1682         ;;
1683 *)
1684         if [ -f /usr/libexec/ld.elf_so ]; then
1685                 d_dlopen=$define
1686                 d_dlerror=$define
1687                 ccdlflags="-Wl,-E -Wl,-R${PREFIX}/lib $ccdlflags"
1688                 cccdlflags="-DPIC -fPIC $cccdlflags"
1689                 lddlflags="--whole-archive -shared $lddlflags"
1690         elif [ "`uname -m`" = "pmax" ]; then
1691 # NetBSD 1.3 and 1.3.1 on pmax shipped an 'old' ld.so, which will not work.
1692                 d_dlopen=$undef
1693         elif [ -f /usr/libexec/ld.so ]; then
1694                 d_dlopen=$define
1695                 d_dlerror=$define
1696                 ccdlflags="-Wl,-R${PREFIX}/lib $ccdlflags"
1697 # we use -fPIC here because -fpic is *NOT* enough for some of the
1698 # extensions like Tk on some netbsd platforms (the sparc is one)
1699                 cccdlflags="-DPIC -fPIC $cccdlflags"
1700                 lddlflags="-Bforcearchive -Bshareable $lddlflags"
1701         else
1702                 d_dlopen=$undef
1703         fi
1704         ;;
1705 esac
1706 EOC
1707                           $code =~ s/^case "\$osvers" in\n0\.9\|0\.8.*?^esac\n/$fixed/ms;
1708                           return $code;
1709                       });
1710         }
1711     } elsif ($^O eq 'openbsd') {
1712         if ($major < 8) {
1713             checkout_file('hints/openbsd.sh', '43051805d53a3e4c')
1714                 unless -f 'hints/openbsd.sh';
1715             my $which = extract_from_file('hints/openbsd.sh',
1716                                           qr/# from (2\.8|3\.1) onwards/,
1717                                           '');
1718             if ($which eq '') {
1719                 my $was = extract_from_file('hints/openbsd.sh',
1720                                             qr/(lddlflags="(?:-Bforcearchive )?-Bshareable)/);
1721                 # This is commit 154d43cbcf57271c and parts of 5c75dbfa77b0949c
1722                 # and 29b5585702e5e025
1723                 apply_patch(sprintf <<'EOPATCH', $was);
1724 diff --git a/hints/openbsd.sh b/hints/openbsd.sh
1725 index a7d8bf2..5b79709 100644
1726 --- a/hints/openbsd.sh
1727 +++ b/hints/openbsd.sh
1728 @@ -37,7 +37,25 @@ OpenBSD.alpha|OpenBSD.mips|OpenBSD.powerpc|OpenBSD.vax)
1729         # we use -fPIC here because -fpic is *NOT* enough for some of the
1730         # extensions like Tk on some OpenBSD platforms (ie: sparc)
1731         cccdlflags="-DPIC -fPIC $cccdlflags"
1732 -       %s $lddlflags"
1733 +       case "$osvers" in
1734 +       [01].*|2.[0-7]|2.[0-7].*)
1735 +               lddlflags="-Bshareable $lddlflags"
1736 +               ;;
1737 +       2.[8-9]|3.0)
1738 +               ld=${cc:-cc}
1739 +               lddlflags="-shared -fPIC $lddlflags"
1740 +               ;;
1741 +       *) # from 3.1 onwards
1742 +               ld=${cc:-cc}
1743 +               lddlflags="-shared -fPIC $lddlflags"
1744 +               libswanted=`echo $libswanted | sed 's/ dl / /'`
1745 +               ;;
1746 +       esac
1747 +
1748 +       # We need to force ld to export symbols on ELF platforms.
1749 +       # Without this, dlopen() is crippled.
1750 +       ELF=`${cc:-cc} -dM -E - </dev/null | grep __ELF__`
1751 +       test -n "$ELF" && ldflags="-Wl,-E $ldflags"
1752         ;;
1753  esac
1754  
1755 EOPATCH
1756             } elsif ($which eq '2.8') {
1757                 # This is parts of 5c75dbfa77b0949c and 29b5585702e5e025, and
1758                 # possibly eb9cd59d45ad2908
1759                 my $was = extract_from_file('hints/openbsd.sh',
1760                                             qr/lddlflags="(-shared(?: -fPIC)?) \$lddlflags"/);
1761
1762                 apply_patch(sprintf <<'EOPATCH', $was);
1763 --- a/hints/openbsd.sh  2011-10-21 17:25:20.000000000 +0200
1764 +++ b/hints/openbsd.sh  2011-10-21 16:58:43.000000000 +0200
1765 @@ -44,11 +44,21 @@
1766         [01].*|2.[0-7]|2.[0-7].*)
1767                 lddlflags="-Bshareable $lddlflags"
1768                 ;;
1769 -       *) # from 2.8 onwards
1770 +       2.[8-9]|3.0)
1771                 ld=${cc:-cc}
1772 -               lddlflags="%s $lddlflags"
1773 +               lddlflags="-shared -fPIC $lddlflags"
1774 +               ;;
1775 +       *) # from 3.1 onwards
1776 +               ld=${cc:-cc}
1777 +               lddlflags="-shared -fPIC $lddlflags"
1778 +               libswanted=`echo $libswanted | sed 's/ dl / /'`
1779                 ;;
1780         esac
1781 +
1782 +       # We need to force ld to export symbols on ELF platforms.
1783 +       # Without this, dlopen() is crippled.
1784 +       ELF=`${cc:-cc} -dM -E - </dev/null | grep __ELF__`
1785 +       test -n "$ELF" && ldflags="-Wl,-E $ldflags"
1786         ;;
1787  esac
1788  
1789 EOPATCH
1790             } elsif ($which eq '3.1'
1791                      && !extract_from_file('hints/openbsd.sh',
1792                                            qr/We need to force ld to export symbols on ELF platforms/)) {
1793                 # This is part of 29b5585702e5e025
1794                 apply_patch(<<'EOPATCH');
1795 diff --git a/hints/openbsd.sh b/hints/openbsd.sh
1796 index c6b6bc9..4839d04 100644
1797 --- a/hints/openbsd.sh
1798 +++ b/hints/openbsd.sh
1799 @@ -54,6 +54,11 @@ alpha-2.[0-8]|mips-*|vax-*|powerpc-2.[0-7]|m88k-*)
1800                 libswanted=`echo $libswanted | sed 's/ dl / /'`
1801                 ;;
1802         esac
1803 +
1804 +       # We need to force ld to export symbols on ELF platforms.
1805 +       # Without this, dlopen() is crippled.
1806 +       ELF=`${cc:-cc} -dM -E - </dev/null | grep __ELF__`
1807 +       test -n "$ELF" && ldflags="-Wl,-E $ldflags"
1808         ;;
1809  esac
1810  
1811 EOPATCH
1812             }
1813         }
1814     } elsif ($^O eq 'linux') {
1815         if ($major < 1) {
1816             # sparc linux seems to need the -Dbool=char -DHAS_BOOL part of
1817             # perl5.000 patch.0n: [address Configure and build issues]
1818             edit_file('hints/linux.sh', sub {
1819                           my $code = shift;
1820                           $code =~ s!-I/usr/include/bsd!-Dbool=char -DHAS_BOOL!g;
1821                           return $code;
1822                       });
1823         }
1824
1825         if ($major <= 9) {
1826             if (`uname -sm` =~ qr/^Linux sparc/) {
1827                 if (extract_from_file('hints/linux.sh', qr/sparc-linux/)) {
1828                     # Be sure to use -fPIC not -fpic on Linux/SPARC
1829                     apply_commit('f6527d0ef0c13ad4');
1830                 } elsif(!extract_from_file('hints/linux.sh',
1831                                            qr/^sparc-linux\)$/)) {
1832                     my $fh = open_or_die('hints/linux.sh', '>>');
1833                     print $fh <<'EOT' or die $!;
1834
1835 case "`uname -m`" in
1836 sparc*)
1837         case "$cccdlflags" in
1838         *-fpic*) cccdlflags="`echo $cccdlflags|sed 's/-fpic/-fPIC/'`" ;;
1839         *)       cccdlflags="$cccdlflags -fPIC" ;;
1840         esac
1841         ;;
1842 esac
1843 EOT
1844                     close_or_die($fh);
1845                 }
1846             }
1847         }
1848     }
1849 }
1850
1851 sub patch_SH {
1852     # Cwd.xs added in commit 0d2079faa739aaa9. Cwd.pm moved to ext/ 8 years
1853     # later in commit 403f501d5b37ebf0
1854     if ($major > 0 && <*/Cwd/Cwd.xs>) {
1855         if ($major < 10
1856             && !extract_from_file('Makefile.SH', qr/^extra_dep=''$/)) {
1857             # The Makefile.PL for Unicode::Normalize needs
1858             # lib/unicore/CombiningClass.pl. Even without a parallel build, we
1859             # need a dependency to ensure that it builds. This is a variant of
1860             # commit 9f3ef600c170f61e. Putting this for earlier versions gives
1861             # us a spot on which to hang the edits below
1862             apply_patch(<<'EOPATCH');
1863 diff --git a/Makefile.SH b/Makefile.SH
1864 index f61d0db..6097954 100644
1865 --- a/Makefile.SH
1866 +++ b/Makefile.SH
1867 @@ -155,10 +155,20 @@ esac
1868  
1869  : Prepare dependency lists for Makefile.
1870  dynamic_list=' '
1871 +extra_dep=''
1872  for f in $dynamic_ext; do
1873      : the dependency named here will never exist
1874        base=`echo "$f" | sed 's/.*\///'`
1875 -    dynamic_list="$dynamic_list lib/auto/$f/$base.$dlext"
1876 +    this_target="lib/auto/$f/$base.$dlext"
1877 +    dynamic_list="$dynamic_list $this_target"
1878 +
1879 +    : Parallel makes reveal that we have some interdependencies
1880 +    case $f in
1881 +       Math/BigInt/FastCalc) extra_dep="$extra_dep
1882 +$this_target: lib/auto/List/Util/Util.$dlext" ;;
1883 +       Unicode/Normalize) extra_dep="$extra_dep
1884 +$this_target: lib/unicore/CombiningClass.pl" ;;
1885 +    esac
1886  done
1887  
1888  static_list=' '
1889 @@ -987,2 +997,9 @@ n_dummy $(nonxs_ext):       miniperl$(EXE_EXT) preplibrary $(DYNALOADER) FORCE
1890         @$(LDLIBPTH) sh ext/util/make_ext nonxs $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
1891 +!NO!SUBS!
1892 +
1893 +$spitshell >>Makefile <<EOF
1894 +$extra_dep
1895 +EOF
1896 +
1897 +$spitshell >>Makefile <<'!NO!SUBS!'
1898  
1899 EOPATCH
1900         }
1901
1902         if ($major == 11) {
1903             if (extract_from_file('patchlevel.h',
1904                                   qr/^#include "unpushed\.h"/)) {
1905                 # I had thought it easier to detect when building one of the 52
1906                 # commits with the original method of incorporating the git
1907                 # revision and drop parallel make flags. Commits shown by
1908                 # git log 46807d8e809cc127^..dcff826f70bf3f64^ ^d4fb0a1f15d1a1c4
1909                 # However, it's not actually possible to make miniperl for that
1910                 # configuration as-is, because the file .patchnum is only made
1911                 # as a side effect of target 'all'
1912                 # I also don't think that it's "safe" to simply run
1913                 # make_patchnum.sh before the build. We need the proper
1914                 # dependency rules in the Makefile to *stop* it being run again
1915                 # at the wrong time.
1916                 # This range is important because contains the commit that
1917                 # merges Schwern's y2038 work.
1918                 apply_patch(<<'EOPATCH');
1919 diff --git a/Makefile.SH b/Makefile.SH
1920 index 9ad8b6f..106e721 100644
1921 --- a/Makefile.SH
1922 +++ b/Makefile.SH
1923 @@ -540,9 +544,14 @@ sperl.i: perl.c $(h)
1924  
1925  .PHONY: all translators utilities make_patchnum
1926  
1927 -make_patchnum:
1928 +make_patchnum: lib/Config_git.pl
1929 +
1930 +lib/Config_git.pl: make_patchnum.sh
1931         sh $(shellflags) make_patchnum.sh
1932  
1933 +# .patchnum, unpushed.h and lib/Config_git.pl are built by make_patchnum.sh
1934 +unpushed.h .patchnum: lib/Config_git.pl
1935 +
1936  # make sure that we recompile perl.c if .patchnum changes
1937  perl$(OBJ_EXT): .patchnum unpushed.h
1938  
1939 EOPATCH
1940             } elsif (-f '.gitignore'
1941                      && extract_from_file('.gitignore', qr/^\.patchnum$/)) {
1942                 # 8565263ab8a47cda to 46807d8e809cc127^ inclusive.
1943                 edit_file('Makefile.SH', sub {
1944                               my $code = shift;
1945                               $code =~ s/^make_patchnum:\n/make_patchnum: .patchnum
1946
1947 .sha1: .patchnum
1948
1949 .patchnum: make_patchnum.sh
1950 /m;
1951                               return $code;
1952                           });
1953             } elsif (-f 'lib/.gitignore'
1954                      && extract_from_file('lib/.gitignore',
1955                                           qr!^/Config_git.pl!)
1956                      && !extract_from_file('Makefile.SH',
1957                                         qr/^uudmap\.h.*:bitcount.h$/)) {
1958                 # Between commits and dcff826f70bf3f64 and 0f13ebd5d71f8177^
1959                 edit_file('Makefile.SH', sub {
1960                               my $code = shift;
1961                               # Bug introduced by 344af494c35a9f0f
1962                               # fixed in 0f13ebd5d71f8177
1963                               $code =~ s{^(pod/perlapi\.pod) (pod/perlintern\.pod): }
1964                                         {$1: $2\n\n$2: }m;
1965                               # Bug introduced by efa50c51e3301a2c
1966                               # fixed in 0f13ebd5d71f8177
1967                               $code =~ s{^(uudmap\.h) (bitcount\.h): }
1968                                         {$1: $2\n\n$2: }m;
1969
1970                               # The rats nest of getting git_version.h correct
1971
1972                               if ($code =~ s{git_version\.h: stock_git_version\.h
1973 \tcp stock_git_version\.h git_version\.h}
1974                                             {}m) {
1975                                   # before 486cd780047ff224
1976
1977                                   # We probably can't build between
1978                                   # 953f6acfa20ec275^ and 8565263ab8a47cda
1979                                   # inclusive, but all commits in that range
1980                                   # relate to getting make_patchnum.sh working,
1981                                   # so it is extremely unlikely to be an
1982                                   # interesting bisect target. They will skip.
1983
1984                                   # No, don't spawn a submake if
1985                                   # make_patchnum.sh or make_patchnum.pl fails
1986                                   $code =~ s{\|\| \$\(MAKE\) miniperl.*}
1987                                             {}m;
1988                                   $code =~ s{^\t(sh.*make_patchnum\.sh.*)}
1989                                             {\t-$1}m;
1990
1991                                   # Use an external perl to run make_patchnum.pl
1992                                   # because miniperl still depends on
1993                                   # git_version.h
1994                                   $code =~ s{^\t.*make_patchnum\.pl}
1995                                             {\t-$^X make_patchnum.pl}m;
1996
1997
1998                                   # "Truth in advertising" - running
1999                                   # make_patchnum generates 2 files.
2000                                   $code =~ s{^make_patchnum:.*}{
2001 make_patchnum: lib/Config_git.pl
2002
2003 git_version.h: lib/Config_git.pl
2004
2005 perlmini\$(OBJ_EXT): git_version.h
2006
2007 lib/Config_git.pl:}m;
2008                               }
2009                               # Right, now we've corrected Makefile.SH to
2010                               # correctly describe how lib/Config_git.pl and
2011                               # git_version.h are made, we need to fix the rest
2012
2013                               # This emulates commit 2b63e250843b907e
2014                               # This might duplicate the rule stating that
2015                               # git_version.h depends on lib/Config_git.pl
2016                               # This is harmless.
2017                               $code =~ s{^(?:lib/Config_git\.pl )?git_version\.h: (.* make_patchnum\.pl.*)}
2018                                         {git_version.h: lib/Config_git.pl
2019
2020 lib/Config_git.pl: $1}m;
2021
2022                               # This emulates commits 0f13ebd5d71f8177 and
2023                               # and a04d4598adc57886. It ensures that
2024                               # lib/Config_git.pl is built before configpm,
2025                               # and that configpm is run exactly once.
2026                               $code =~ s{^(\$\(.*?\) )?(\$\(CONFIGPOD\))(: .*? configpm Porting/Glossary)( lib/Config_git\.pl)?}{
2027                                   # If present, other files depend on $(CONFIGPOD)
2028                                   ($1 ? "$1: $2\n\n" : '')
2029                                       # Then the rule we found
2030                                       . $2 . $3
2031                                           # Add dependency if not there
2032                                           . ($4 ? $4 : ' lib/Config_git.pl')
2033                               }me;
2034
2035                               return $code;
2036                           });
2037             }
2038         }
2039
2040         if ($major < 14) {
2041             # Commits dc0655f797469c47 and d11a62fe01f2ecb2
2042             edit_file('Makefile.SH', sub {
2043                           my $code = shift;
2044                           foreach my $ext (qw(Encode SDBM_File)) {
2045                               next if $code =~ /\b$ext\) extra_dep=/s;
2046                               $code =~ s!(\) extra_dep="\$extra_dep
2047 \$this_target: .*?" ;;)
2048 (    esac
2049 )!$1
2050         $ext) extra_dep="\$extra_dep
2051 \$this_target: lib/auto/Cwd/Cwd.\$dlext" ;;
2052 $2!;
2053                           }
2054                           return $code;
2055                       });
2056         }
2057     }
2058
2059     if ($major == 7) {
2060         # Remove commits 9fec149bb652b6e9 and 5bab1179608f81d8, which add/amend
2061         # rules to automatically run regen scripts that rebuild C headers. These
2062         # cause problems because a git checkout doesn't preserve relative file
2063         # modification times, hence the regen scripts may fire. This will
2064         # obscure whether the repository had the correct generated headers
2065         # checked in.
2066         # Also, the dependency rules for running the scripts were not correct,
2067         # which could cause spurious re-builds on re-running make, and can cause
2068         # complete build failures for a parallel make.
2069         if (extract_from_file('Makefile.SH',
2070                               qr/Writing it this way gives make a big hint to always run opcode\.pl before/)) {
2071             apply_commit('70c6e6715e8fec53');
2072         } elsif (extract_from_file('Makefile.SH',
2073                                    qr/^opcode\.h opnames\.h pp_proto\.h pp\.sym: opcode\.pl$/)) {
2074             revert_commit('9fec149bb652b6e9');
2075         }
2076     }
2077
2078     if ($^O eq 'aix' && $major >= 11 && $major <= 15
2079         && extract_from_file('makedef.pl', qr/^use Config/)) {
2080         edit_file('Makefile.SH', sub {
2081                       # The AIX part of commit e6807d8ab22b761c
2082                       # It's safe to substitute lib/Config.pm for config.sh
2083                       # as lib/Config.pm depends on config.sh
2084                       # If the tree is post e6807d8ab22b761c, the substitution
2085                       # won't match, which is harmless.
2086                       my $code = shift;
2087                       $code =~ s{^(perl\.exp:.* )config\.sh(\b.*)}
2088                                 {$1 . '$(CONFIGPM)' . $2}me;
2089                       return $code;
2090                   });
2091     }
2092
2093     # There was a bug in makedepend.SH which was fixed in version 96a8704c.
2094     # Symptom was './makedepend: 1: Syntax error: Unterminated quoted string'
2095     # Remove this if you're actually bisecting a problem related to
2096     # makedepend.SH
2097     # If you do this, you may need to add in code to correct the output of older
2098     # makedepends, which don't correctly filter newer gcc output such as
2099     # <built-in>
2100     checkout_file('makedepend.SH');
2101
2102     if ($major < 4 && -f 'config.sh'
2103         && !extract_from_file('config.sh', qr/^trnl=/)) {
2104         # This seems to be necessary to avoid makedepend becoming confused,
2105         # and hanging on stdin. Seems that the code after
2106         # make shlist || ...here... is never run.
2107         edit_file('makedepend.SH', sub {
2108                       my $code = shift;
2109                       $code =~ s/^trnl='\$trnl'$/trnl='\\n'/m;
2110                       return $code;
2111                   });
2112     }
2113 }
2114
2115 sub patch_C {
2116     # This is ordered by $major, as it's likely that different platforms may
2117     # well want to share code.
2118
2119     if ($major == 2 && extract_from_file('perl.c', qr/^\tfclose\(e_fp\);$/)) {
2120         # need to patch perl.c to avoid calling fclose() twice on e_fp when
2121         # using -e
2122         # This diff is part of commit ab821d7fdc14a438. The second close was
2123         # introduced with perl-5.002, commit a5f75d667838e8e7
2124         # Might want a6c477ed8d4864e6 too, for the corresponding change to
2125         # pp_ctl.c (likely without this, eval will have "fun")
2126         apply_patch(<<'EOPATCH');
2127 diff --git a/perl.c b/perl.c
2128 index 03c4d48..3c814a2 100644
2129 --- a/perl.c
2130 +++ b/perl.c
2131 @@ -252,6 +252,7 @@ setuid perl scripts securely.\n");
2132  #ifndef VMS  /* VMS doesn't have environ array */
2133      origenviron = environ;
2134  #endif
2135 +    e_tmpname = Nullch;
2136  
2137      if (do_undump) {
2138  
2139 @@ -405,6 +406,7 @@ setuid perl scripts securely.\n");
2140      if (e_fp) {
2141         if (Fflush(e_fp) || ferror(e_fp) || fclose(e_fp))
2142             croak("Can't write to temp file for -e: %s", Strerror(errno));
2143 +       e_fp = Nullfp;
2144         argc++,argv--;
2145         scriptname = e_tmpname;
2146      }
2147 @@ -470,10 +472,10 @@ setuid perl scripts securely.\n");
2148      curcop->cop_line = 0;
2149      curstash = defstash;
2150      preprocess = FALSE;
2151 -    if (e_fp) {
2152 -       fclose(e_fp);
2153 -       e_fp = Nullfp;
2154 +    if (e_tmpname) {
2155         (void)UNLINK(e_tmpname);
2156 +       Safefree(e_tmpname);
2157 +       e_tmpname = Nullch;
2158      }
2159  
2160      /* now that script is parsed, we can modify record separator */
2161 @@ -1369,7 +1371,7 @@ SV *sv;
2162         scriptname = xfound;
2163      }
2164  
2165 -    origfilename = savepv(e_fp ? "-e" : scriptname);
2166 +    origfilename = savepv(e_tmpname ? "-e" : scriptname);
2167      curcop->cop_filegv = gv_fetchfile(origfilename);
2168      if (strEQ(origfilename,"-"))
2169         scriptname = "";
2170
2171 EOPATCH
2172     }
2173
2174     if ($major < 3 && $^O eq 'openbsd'
2175         && !extract_from_file('pp_sys.c', qr/BSD_GETPGRP/)) {
2176         # Part of commit c3293030fd1b7489
2177         apply_patch(<<'EOPATCH');
2178 diff --git a/pp_sys.c b/pp_sys.c
2179 index 4608a2a..f0c9d1d 100644
2180 --- a/pp_sys.c
2181 +++ b/pp_sys.c
2182 @@ -2903,8 +2903,8 @@ PP(pp_getpgrp)
2183         pid = 0;
2184      else
2185         pid = SvIVx(POPs);
2186 -#ifdef USE_BSDPGRP
2187 -    value = (I32)getpgrp(pid);
2188 +#ifdef BSD_GETPGRP
2189 +    value = (I32)BSD_GETPGRP(pid);
2190  #else
2191      if (pid != 0)
2192         DIE("POSIX getpgrp can't take an argument");
2193 @@ -2933,8 +2933,8 @@ PP(pp_setpgrp)
2194      }
2195  
2196      TAINT_PROPER("setpgrp");
2197 -#ifdef USE_BSDPGRP
2198 -    SETi( setpgrp(pid, pgrp) >= 0 );
2199 +#ifdef BSD_SETPGRP
2200 +    SETi( BSD_SETPGRP(pid, pgrp) >= 0 );
2201  #else
2202      if ((pgrp != 0) || (pid != 0)) {
2203         DIE("POSIX setpgrp can't take an argument");
2204 EOPATCH
2205     }
2206
2207     if ($major < 4 && $^O eq 'openbsd') {
2208         my $bad;
2209         # Need changes from commit a6e633defa583ad5.
2210         # Commits c07a80fdfe3926b5 and f82b3d4130164d5f changed the same part
2211         # of perl.h
2212
2213         if (extract_from_file('perl.h',
2214                               qr/^#ifdef HAS_GETPGRP2$/)) {
2215             $bad = <<'EOBAD';
2216 ***************
2217 *** 57,71 ****
2218   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
2219   #define TAINT_ENV()   if (tainting) taint_env()
2220   
2221 ! #ifdef HAS_GETPGRP2
2222 ! #   ifndef HAS_GETPGRP
2223 ! #     define HAS_GETPGRP
2224 ! #   endif
2225 ! #endif
2226
2227 ! #ifdef HAS_SETPGRP2
2228 ! #   ifndef HAS_SETPGRP
2229 ! #     define HAS_SETPGRP
2230 ! #   endif
2231   #endif
2232   
2233 EOBAD
2234         } elsif (extract_from_file('perl.h',
2235                                    qr/Gack, you have one but not both of getpgrp2/)) {
2236             $bad = <<'EOBAD';
2237 ***************
2238 *** 56,76 ****
2239   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
2240   #define TAINT_ENV()   if (tainting) taint_env()
2241   
2242 ! #if defined(HAS_GETPGRP2) && defined(HAS_SETPGRP2)
2243 ! #   define getpgrp getpgrp2
2244 ! #   define setpgrp setpgrp2
2245 ! #   ifndef HAS_GETPGRP
2246 ! #     define HAS_GETPGRP
2247 ! #   endif
2248 ! #   ifndef HAS_SETPGRP
2249 ! #     define HAS_SETPGRP
2250 ! #   endif
2251 ! #   ifndef USE_BSDPGRP
2252 ! #     define USE_BSDPGRP
2253 ! #   endif
2254 ! #else
2255 ! #   if defined(HAS_GETPGRP2) || defined(HAS_SETPGRP2)
2256 !       #include "Gack, you have one but not both of getpgrp2() and setpgrp2()."
2257 ! #   endif
2258   #endif
2259   
2260 EOBAD
2261         } elsif (extract_from_file('perl.h',
2262                                    qr/^#ifdef USE_BSDPGRP$/)) {
2263             $bad = <<'EOBAD'
2264 ***************
2265 *** 91,116 ****
2266   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
2267   #define TAINT_ENV()   if (tainting) taint_env()
2268   
2269 ! #ifdef USE_BSDPGRP
2270 ! #   ifdef HAS_GETPGRP
2271 ! #       define BSD_GETPGRP(pid) getpgrp((pid))
2272 ! #   endif
2273 ! #   ifdef HAS_SETPGRP
2274 ! #       define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
2275 ! #   endif
2276 ! #else
2277 ! #   ifdef HAS_GETPGRP2
2278 ! #       define BSD_GETPGRP(pid) getpgrp2((pid))
2279 ! #       ifndef HAS_GETPGRP
2280 ! #         define HAS_GETPGRP
2281 ! #     endif
2282 ! #   endif
2283 ! #   ifdef HAS_SETPGRP2
2284 ! #       define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
2285 ! #       ifndef HAS_SETPGRP
2286 ! #         define HAS_SETPGRP
2287 ! #     endif
2288 ! #   endif
2289   #endif
2290   
2291   #ifndef _TYPES_               /* If types.h defines this it's easy. */
2292 EOBAD
2293         }
2294         if ($bad) {
2295             apply_patch(<<"EOPATCH");
2296 *** a/perl.h    2011-10-21 09:46:12.000000000 +0200
2297 --- b/perl.h    2011-10-21 09:46:12.000000000 +0200
2298 $bad--- 91,144 ----
2299   #define TAINT_PROPER(s)       if (tainting) taint_proper(no_security, s)
2300   #define TAINT_ENV()   if (tainting) taint_env()
2301   
2302 ! /* XXX All process group stuff is handled in pp_sys.c.  Should these 
2303 !    defines move there?  If so, I could simplify this a lot. --AD  9/96.
2304 ! */
2305 ! /* Process group stuff changed from traditional BSD to POSIX.
2306 !    perlfunc.pod documents the traditional BSD-style syntax, so we'll
2307 !    try to preserve that, if possible.
2308 ! */
2309 ! #ifdef HAS_SETPGID
2310 ! #  define BSD_SETPGRP(pid, pgrp)      setpgid((pid), (pgrp))
2311 ! #else
2312 ! #  if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
2313 ! #    define BSD_SETPGRP(pid, pgrp)    setpgrp((pid), (pgrp))
2314 ! #  else
2315 ! #    ifdef HAS_SETPGRP2  /* DG/UX */
2316 ! #      define BSD_SETPGRP(pid, pgrp)  setpgrp2((pid), (pgrp))
2317 ! #    endif
2318 ! #  endif
2319 ! #endif
2320 ! #if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
2321 ! #  define HAS_SETPGRP  /* Well, effectively it does . . . */
2322 ! #endif
2323
2324 ! /* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
2325 !     our life easier :-) so we'll try it.
2326 ! */
2327 ! #ifdef HAS_GETPGID
2328 ! #  define BSD_GETPGRP(pid)            getpgid((pid))
2329 ! #else
2330 ! #  if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
2331 ! #    define BSD_GETPGRP(pid)          getpgrp((pid))
2332 ! #  else
2333 ! #    ifdef HAS_GETPGRP2  /* DG/UX */
2334 ! #      define BSD_GETPGRP(pid)                getpgrp2((pid))
2335 ! #    endif
2336 ! #  endif
2337 ! #endif
2338 ! #if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
2339 ! #  define HAS_GETPGRP  /* Well, effectively it does . . . */
2340 ! #endif
2341
2342 ! /* These are not exact synonyms, since setpgrp() and getpgrp() may 
2343 !    have different behaviors, but perl.h used to define USE_BSDPGRP
2344 !    (prior to 5.003_05) so some extension might depend on it.
2345 ! */
2346 ! #if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
2347 ! #  ifndef USE_BSDPGRP
2348 ! #    define USE_BSDPGRP
2349 ! #  endif
2350   #endif
2351   
2352   #ifndef _TYPES_               /* If types.h defines this it's easy. */
2353 EOPATCH
2354         }
2355     }
2356
2357     if ($major == 4 && extract_from_file('scope.c', qr/\(SV\*\)SSPOPINT/)) {
2358         # [PATCH] 5.004_04 +MAINT_TRIAL_1 broken when sizeof(int) != sizeof(void)
2359         # Fixes a bug introduced in 161b7d1635bc830b
2360         apply_commit('9002cb76ec83ef7f');
2361     }
2362
2363     if ($major == 4 && extract_from_file('av.c', qr/AvARRAY\(av\) = 0;/)) {
2364         # Fixes a bug introduced in 1393e20655efb4bc
2365         apply_commit('e1c148c28bf3335b', 'av.c');
2366     }
2367
2368     if ($major == 4) {
2369         my $rest = extract_from_file('perl.c', qr/delimcpy(.*)/);
2370         if (defined $rest and $rest !~ /,$/) {
2371             # delimcpy added in fc36a67e8855d031, perl.c refactored to use it.
2372             # bug introduced in 2a92aaa05aa1acbf, fixed in 8490252049bf42d3
2373             # code then moved to util.c in commit 491527d0220de34e
2374             apply_patch(<<'EOPATCH');
2375 diff --git a/perl.c b/perl.c
2376 index 4eb69e3..54bbb00 100644
2377 --- a/perl.c
2378 +++ b/perl.c
2379 @@ -1735,7 +1735,7 @@ SV *sv;
2380             if (len < sizeof tokenbuf)
2381                 tokenbuf[len] = '\0';
2382  #else  /* ! (atarist || DOSISH) */
2383 -           s = delimcpy(tokenbuf, tokenbuf + sizeof tokenbuf, s, bufend
2384 +           s = delimcpy(tokenbuf, tokenbuf + sizeof tokenbuf, s, bufend,
2385                          ':',
2386                          &len);
2387  #endif /* ! (atarist || DOSISH) */
2388 EOPATCH
2389         }
2390     }
2391
2392     if ($major == 4 && $^O eq 'linux') {
2393         # Whilst this is fixed properly in f0784f6a4c3e45e1 which provides the
2394         # Configure probe, it's easier to back out the problematic changes made
2395         # in these previous commits:
2396         if (extract_from_file('doio.c',
2397                               qr!^/\* XXX REALLY need metaconfig test \*/$!)) {
2398             revert_commit('4682965a1447ea44', 'doio.c');
2399         }
2400         if (my $token = extract_from_file('doio.c',
2401                                           qr!^#if (defined\(__sun(?:__)?\)) && defined\(__svr4__\) /\* XXX Need metaconfig test \*/$!)) {
2402             my $patch = `git show -R 9b599b2a63d2324d doio.c`;
2403             $patch =~ s/defined\(__sun__\)/$token/g;
2404             apply_patch($patch);
2405         }
2406         if (extract_from_file('doio.c',
2407                               qr!^/\* linux \(and Solaris2\?\) uses :$!)) {
2408             revert_commit('8490252049bf42d3', 'doio.c');
2409         }
2410         if (extract_from_file('doio.c',
2411                               qr/^          unsemds.buf = &semds;$/)) {
2412             revert_commit('8e591e46b4c6543e');
2413         }
2414         if (extract_from_file('doio.c',
2415                               qr!^#ifdef __linux__      /\* XXX Need metaconfig test \*/$!)) {
2416             # Reverts part of commit 3e3baf6d63945cb6
2417             apply_patch(<<'EOPATCH');
2418 diff --git b/doio.c a/doio.c
2419 index 62b7de9..0d57425 100644
2420 --- b/doio.c
2421 +++ a/doio.c
2422 @@ -1333,9 +1331,6 @@ SV **sp;
2423      char *a;
2424      I32 id, n, cmd, infosize, getinfo;
2425      I32 ret = -1;
2426 -#ifdef __linux__       /* XXX Need metaconfig test */
2427 -    union semun unsemds;
2428 -#endif
2429  
2430      id = SvIVx(*++mark);
2431      n = (optype == OP_SEMCTL) ? SvIVx(*++mark) : 0;
2432 @@ -1364,29 +1359,11 @@ SV **sp;
2433             infosize = sizeof(struct semid_ds);
2434         else if (cmd == GETALL || cmd == SETALL)
2435         {
2436 -#ifdef __linux__       /* XXX Need metaconfig test */
2437 -/* linux uses :
2438 -   int semctl (int semid, int semnun, int cmd, union semun arg)
2439 -
2440 -       union semun {
2441 -            int val;
2442 -            struct semid_ds *buf;
2443 -            ushort *array;
2444 -       };
2445 -*/
2446 -            union semun semds;
2447 -           if (semctl(id, 0, IPC_STAT, semds) == -1)
2448 -#else
2449             struct semid_ds semds;
2450             if (semctl(id, 0, IPC_STAT, &semds) == -1)
2451 -#endif
2452                 return -1;
2453             getinfo = (cmd == GETALL);
2454 -#ifdef __linux__       /* XXX Need metaconfig test */
2455 -           infosize = semds.buf->sem_nsems * sizeof(short);
2456 -#else
2457             infosize = semds.sem_nsems * sizeof(short);
2458 -#endif
2459                 /* "short" is technically wrong but much more portable
2460                    than guessing about u_?short(_t)? */
2461         }
2462 @@ -1429,12 +1406,7 @@ SV **sp;
2463  #endif
2464  #ifdef HAS_SEM
2465      case OP_SEMCTL:
2466 -#ifdef __linux__       /* XXX Need metaconfig test */
2467 -        unsemds.buf = (struct semid_ds *)a;
2468 -       ret = semctl(id, n, cmd, unsemds);
2469 -#else
2470         ret = semctl(id, n, cmd, (struct semid_ds *)a);
2471 -#endif
2472         break;
2473  #endif
2474  #ifdef HAS_SHM
2475 EOPATCH
2476         }
2477         # Incorrect prototype added as part of 8ac853655d9b7447, fixed as part
2478         # of commit dc45a647708b6c54, with at least one intermediate
2479         # modification. Correct prototype for gethostbyaddr has socklen_t
2480         # second. Linux has uint32_t first for getnetbyaddr.
2481         # Easiest just to remove, instead of attempting more complex patching.
2482         # Something similar may be needed on other platforms.
2483         edit_file('pp_sys.c', sub {
2484                       my $code = shift;
2485                       $code =~ s/^    struct hostent \*(?:PerlSock_)?gethostbyaddr\([^)]+\);$//m;
2486                       $code =~ s/^    struct netent \*getnetbyaddr\([^)]+\);$//m;
2487                       return $code;
2488                   });
2489     }
2490
2491     if ($major < 5 && $^O eq 'aix'
2492         && !extract_from_file('pp_sys.c',
2493                               qr/defined\(HOST_NOT_FOUND\) && !defined\(h_errno\)/)) {
2494         # part of commit dc45a647708b6c54
2495         # Andy Dougherty's configuration patches (Config_63-01 up to 04).
2496         apply_patch(<<'EOPATCH')
2497 diff --git a/pp_sys.c b/pp_sys.c
2498 index c2fcb6f..efa39fb 100644
2499 --- a/pp_sys.c
2500 +++ b/pp_sys.c
2501 @@ -54,7 +54,7 @@ extern "C" int syscall(unsigned long,...);
2502  #endif
2503  #endif
2504  
2505 -#ifdef HOST_NOT_FOUND
2506 +#if defined(HOST_NOT_FOUND) && !defined(h_errno)
2507  extern int h_errno;
2508  #endif
2509  
2510 EOPATCH
2511     }
2512
2513     if ($major == 5
2514         && `git rev-parse HEAD` eq "22c35a8c2392967a5ba6b5370695be464bd7012c\n") {
2515         # Commit 22c35a8c2392967a is significant,
2516         # "phase 1 of somewhat major rearrangement of PERL_OBJECT stuff"
2517         # but doesn't build due to 2 simple errors. blead in this broken state
2518         # was merged to the cfgperl branch, and then these were immediately
2519         # corrected there. cfgperl (with the fixes) was merged back to blead.
2520         # The resultant rather twisty maze of commits looks like this:
2521
2522 =begin comment
2523
2524 * | |   commit 137225782c183172f360c827424b9b9f8adbef0e
2525 |\ \ \  Merge: 22c35a8 2a8ee23
2526 | |/ /  Author: Gurusamy Sarathy <gsar@cpan.org>
2527 | | |   Date:   Fri Oct 30 17:38:36 1998 +0000
2528 | | |
2529 | | |       integrate cfgperl tweaks into mainline
2530 | | |
2531 | | |       p4raw-id: //depot/perl@2144
2532 | | |
2533 | * | commit 2a8ee23279873759693fa83eca279355db2b665c
2534 | | | Author: Jarkko Hietaniemi <jhi@iki.fi>
2535 | | | Date:   Fri Oct 30 13:27:39 1998 +0000
2536 | | |
2537 | | |     There can be multiple yacc/bison errors.
2538 | | |
2539 | | |     p4raw-id: //depot/cfgperl@2143
2540 | | |
2541 | * | commit 93fb2ac393172fc3e2c14edb20b718309198abbc
2542 | | | Author: Jarkko Hietaniemi <jhi@iki.fi>
2543 | | | Date:   Fri Oct 30 13:18:43 1998 +0000
2544 | | |
2545 | | |     README.posix-bc update.
2546 | | |
2547 | | |     p4raw-id: //depot/cfgperl@2142
2548 | | |
2549 | * | commit 4ec43091e8e6657cb260b5e563df30aaa154effe
2550 | | | Author: Jarkko Hietaniemi <jhi@iki.fi>
2551 | | | Date:   Fri Oct 30 09:12:59 1998 +0000
2552 | | |
2553 | | |     #2133 fallout.
2554 | | |
2555 | | |     p4raw-id: //depot/cfgperl@2141
2556 | | |
2557 | * |   commit 134ca994cfefe0f613d43505a885e4fc2100b05c
2558 | |\ \  Merge: 7093112 22c35a8
2559 | |/ /  Author: Jarkko Hietaniemi <jhi@iki.fi>
2560 |/| |   Date:   Fri Oct 30 08:43:18 1998 +0000
2561 | | |
2562 | | |       Integrate from mainperl.
2563 | | |
2564 | | |       p4raw-id: //depot/cfgperl@2140
2565 | | |
2566 * | | commit 22c35a8c2392967a5ba6b5370695be464bd7012c
2567 | | | Author: Gurusamy Sarathy <gsar@cpan.org>
2568 | | | Date:   Fri Oct 30 02:51:39 1998 +0000
2569 | | |
2570 | | |     phase 1 of somewhat major rearrangement of PERL_OBJECT stuff
2571 | | |     (objpp.h is gone, embed.pl now does some of that); objXSUB.h
2572 | | |     should soon be automated also; the global variables that
2573 | | |     escaped the PL_foo conversion are now reined in; renamed
2574 | | |     MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
2575 | | |     type of same name; duplicated lists of pp_things in various
2576 | | |     places is now gone; result has only been tested on win32
2577 | | |
2578 | | |     p4raw-id: //depot/perl@2133
2579
2580 =end comment
2581
2582 =cut
2583
2584         # and completely confuses git bisect (and at least me), causing it to
2585         # the bisect run to confidently return the wrong answer, an unrelated
2586         # commit on the cfgperl branch.
2587
2588         apply_commit('4ec43091e8e6657c');
2589     }
2590
2591     if ($major == 5
2592         && extract_from_file('pp_sys.c', qr/PERL_EFF_ACCESS_R_OK/)
2593         && !extract_from_file('pp_sys.c', qr/XXX Configure test needed for eaccess/)) {
2594         # Between 5ff3f7a4e03a6b10 and c955f1177b2e311d^
2595         # This is the meat of commit c955f1177b2e311d (without the other
2596         # indenting changes that would cause a conflict).
2597         # Without this 538 revisions won't build on (at least) Linux
2598         apply_patch(<<'EOPATCH');
2599 diff --git a/pp_sys.c b/pp_sys.c
2600 index d60c8dc..867dee4 100644
2601 --- a/pp_sys.c
2602 +++ b/pp_sys.c
2603 @@ -198,9 +198,18 @@ static char zero_but_true[ZBTLEN + 1] = "0 but true";
2604  #   if defined(I_SYS_SECURITY)
2605  #       include <sys/security.h>
2606  #   endif
2607 -#   define PERL_EFF_ACCESS_R_OK(p) (eaccess((p), R_OK, ACC_SELF))
2608 -#   define PERL_EFF_ACCESS_W_OK(p) (eaccess((p), W_OK, ACC_SELF))
2609 -#   define PERL_EFF_ACCESS_X_OK(p) (eaccess((p), X_OK, ACC_SELF))
2610 +    /* XXX Configure test needed for eaccess */
2611 +#   ifdef ACC_SELF
2612 +        /* HP SecureWare */
2613 +#       define PERL_EFF_ACCESS_R_OK(p) (eaccess((p), R_OK, ACC_SELF))
2614 +#       define PERL_EFF_ACCESS_W_OK(p) (eaccess((p), W_OK, ACC_SELF))
2615 +#       define PERL_EFF_ACCESS_X_OK(p) (eaccess((p), X_OK, ACC_SELF))
2616 +#   else
2617 +        /* SCO */
2618 +#       define PERL_EFF_ACCESS_R_OK(p) (eaccess((p), R_OK))
2619 +#       define PERL_EFF_ACCESS_W_OK(p) (eaccess((p), W_OK))
2620 +#       define PERL_EFF_ACCESS_X_OK(p) (eaccess((p), X_OK))
2621 +#   endif
2622  #endif
2623  
2624  #if !defined(PERL_EFF_ACCESS_R_OK) && defined(HAS_ACCESSX) && defined(ACC_SELF)
2625 EOPATCH
2626     }
2627
2628     if ($major == 5
2629         && extract_from_file('mg.c', qr/If we're still on top of the stack, pop us off/)
2630         && !extract_from_file('mg.c', qr/PL_savestack_ix -= popval/)) {
2631         # Fix up commit 455ece5e082708b1:
2632         # SSNEW() API for allocating memory on the savestack
2633         # Message-Id: <tqemtae338.fsf@puma.genscan.com>
2634         # Subject: [PATCH 5.005_51] (was: why SAVEDESTRUCTOR()...)
2635         apply_commit('3c8a44569607336e', 'mg.c');
2636     }
2637
2638     if ($major == 5) {
2639         if (extract_from_file('doop.c', qr/croak\(no_modify\);/)
2640             && extract_from_file('doop.c', qr/croak\(PL_no_modify\);/)) {
2641             # Whilst the log suggests that this would only fix 5 commits, in
2642             # practice this area of history is a complete tarpit, and git bisect
2643             # gets very confused by the skips in the middle of the back and
2644             # forth merging between //depot/perl and //depot/cfgperl
2645             apply_commit('6393042b638dafd3');
2646         }
2647
2648         # One error "fixed" with another:
2649         if (extract_from_file('pp_ctl.c',
2650                               qr/\Qstatic void *docatch_body _((void *o));\E/)) {
2651             apply_commit('5b51e982882955fe');
2652         }
2653         # Which is then fixed by this:
2654         if (extract_from_file('pp_ctl.c',
2655                               qr/\Qstatic void *docatch_body _((valist\E/)) {
2656             apply_commit('47aa779ee4c1a50e');
2657         }
2658
2659         if (extract_from_file('thrdvar.h', qr/PERLVARI\(Tprotect/)
2660             && !extract_from_file('embedvar.h', qr/PL_protect/)) {
2661             # Commit 312caa8e97f1c7ee didn't update embedvar.h
2662             apply_commit('e0284a306d2de082', 'embedvar.h');
2663         }
2664     }
2665
2666     if ($major == 5
2667         && extract_from_file('sv.c',
2668                              qr/PerlDir_close\(IoDIRP\((?:\(IO\*\))?sv\)\);/)
2669         && !(extract_from_file('toke.c',
2670                                qr/\QIoDIRP(FILTER_DATA(AvFILLp(PL_rsfp_filters))) = NULL\E/)
2671              || extract_from_file('toke.c',
2672                                   qr/\QIoDIRP(datasv) = (DIR*)NULL;\E/))) {
2673         # Commit 93578b34124e8a3b, //depot/perl@3298
2674         # close directory handles properly when localized,
2675         # tweaked slightly by commit 1236053a2c722e2b,
2676         # add test case for change#3298
2677         #
2678         # The fix is the last part of:
2679         #
2680         # various fixes for clean build and test on win32; configpm broken,
2681         # needed to open myconfig.SH rather than myconfig; sundry adjustments
2682         # to bytecode stuff; tweaks to DYNAMIC_ENV_FETCH code to make it
2683         # work under win32; getenv_sv() changed to getenv_len() since SVs
2684         # aren't visible in the lower echelons; remove bogus exports from
2685         # config.sym; PERL_OBJECT-ness for C++ exception support; null out
2686         # IoDIRP in filter_del() or sv_free() will attempt to close it
2687         #
2688         # The changed code is modified subsequently by commit e0c198038146b7a4
2689         apply_commit('a6c403648ecd5cc7', 'toke.c');
2690     }
2691
2692     if ($major < 6 && $^O eq 'netbsd'
2693         && !extract_from_file('unixish.h',
2694                               qr/defined\(NSIG\).*defined\(__NetBSD__\)/)) {
2695         apply_patch(<<'EOPATCH')
2696 diff --git a/unixish.h b/unixish.h
2697 index 2a6cbcd..eab2de1 100644
2698 --- a/unixish.h
2699 +++ b/unixish.h
2700 @@ -89,7 +89,7 @@
2701   */
2702  /* #define ALTERNATE_SHEBANG "#!" / **/
2703  
2704 -#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
2705 +#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) || defined(__NetBSD__)
2706  # include <signal.h>
2707  #endif
2708  
2709 EOPATCH
2710     }
2711
2712     if (($major >= 7 || $major <= 9) && $^O eq 'openbsd'
2713         && `uname -m` eq "sparc64\n"
2714         # added in 2000 by commit cb434fcc98ac25f5:
2715         && extract_from_file('regexec.c',
2716                              qr!/\* No need to save/restore up to this paren \*/!)
2717         # re-indented in 2006 by commit 95b2444054382532:
2718         && extract_from_file('regexec.c', qr/^\t\tCURCUR cc;$/)) {
2719         # Need to work around a bug in (at least) OpenBSD's 4.6's sparc64 #
2720         # compiler ["gcc (GCC) 3.3.5 (propolice)"]. Between commits
2721         # 3ec562b0bffb8b8b (2002) and 1a4fad37125bac3e^ (2005) the darling thing
2722         # fails to compile any code for the statement cc.oldcc = PL_regcc;
2723         #
2724         # If you refactor the code to "fix" that, or force the issue using set
2725         # in the debugger, the stack smashing detection code fires on return
2726         # from S_regmatch(). Turns out that the compiler doesn't allocate any
2727         # (or at least enough) space for cc.
2728         #
2729         # Restore the "uninitialised" value for cc before function exit, and the
2730         # stack smashing code is placated.  "Fix" 3ec562b0bffb8b8b (which
2731         # changes the size of auto variables used elsewhere in S_regmatch), and
2732         # the crash is visible back to bc517b45fdfb539b (which also changes
2733         # buffer sizes). "Unfix" 1a4fad37125bac3e and the crash is visible until
2734         # 5b47454deb66294b.  Problem goes away if you compile with -O, or hack
2735         # the code as below.
2736         #
2737         # Hence this turns out to be a bug in (old) gcc. Not a security bug we
2738         # still need to fix.
2739         apply_patch(<<'EOPATCH');
2740 diff --git a/regexec.c b/regexec.c
2741 index 900b491..6251a0b 100644
2742 --- a/regexec.c
2743 +++ b/regexec.c
2744 @@ -2958,7 +2958,11 @@ S_regmatch(pTHX_ regnode *prog)
2745                                 I,I
2746   *******************************************************************/
2747         case CURLYX: {
2748 -               CURCUR cc;
2749 +           union {
2750 +               CURCUR hack_cc;
2751 +               char hack_buff[sizeof(CURCUR) + 1];
2752 +           } hack;
2753 +#define cc hack.hack_cc
2754                 CHECKPOINT cp = PL_savestack_ix;
2755                 /* No need to save/restore up to this paren */
2756                 I32 parenfloor = scan->flags;
2757 @@ -2983,6 +2987,7 @@ S_regmatch(pTHX_ regnode *prog)
2758                 n = regmatch(PREVOPER(next));   /* start on the WHILEM */
2759                 regcpblow(cp);
2760                 PL_regcc = cc.oldcc;
2761 +#undef cc
2762                 saySAME(n);
2763             }
2764             /* NOT REACHED */
2765 EOPATCH
2766 }
2767
2768     if ($major < 8 && $^O eq 'openbsd'
2769         && !extract_from_file('perl.h', qr/include <unistd\.h>/)) {
2770         # This is part of commit 3f270f98f9305540, applied at a slightly
2771         # different location in perl.h, where the context is stable back to
2772         # 5.000
2773         apply_patch(<<'EOPATCH');
2774 diff --git a/perl.h b/perl.h
2775 index 9418b52..b8b1a7c 100644
2776 --- a/perl.h
2777 +++ b/perl.h
2778 @@ -496,6 +496,10 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
2779  #   include <sys/param.h>
2780  #endif
2781  
2782 +/* If this causes problems, set i_unistd=undef in the hint file.  */
2783 +#ifdef I_UNISTD
2784 +#   include <unistd.h>
2785 +#endif
2786  
2787  /* Use all the "standard" definitions? */
2788  #if defined(STANDARD_C) && defined(I_STDLIB)
2789 EOPATCH
2790     }
2791 }
2792
2793 sub patch_ext {
2794     if (-f 'ext/POSIX/Makefile.PL'
2795         && extract_from_file('ext/POSIX/Makefile.PL',
2796                              qr/Explicitly avoid including/)) {
2797         # commit 6695a346c41138df, which effectively reverts 170888cff5e2ffb7
2798
2799         # PERL5LIB is populated by make_ext.pl with paths to the modules we need
2800         # to run, don't override this with "../../lib" since that may not have
2801         # been populated yet in a parallel build.
2802         apply_commit('6695a346c41138df');
2803     }
2804
2805     if (-f 'ext/Hash/Util/Makefile.PL'
2806         && extract_from_file('ext/Hash/Util/Makefile.PL',
2807                              qr/\bDIR\b.*'FieldHash'/)) {
2808         # ext/Hash/Util/Makefile.PL should not recurse to FieldHash's Makefile.PL
2809         # *nix, VMS and Win32 all know how to (and have to) call the latter directly.
2810         # As is, targets in ext/Hash/Util/FieldHash get called twice, which may result
2811         # in race conditions, and certainly messes up make clean; make distclean;
2812         apply_commit('550428fe486b1888');
2813     }
2814
2815     if ($major < 8 && $^O eq 'darwin' && !-f 'ext/DynaLoader/dl_dyld.xs') {
2816         checkout_file('ext/DynaLoader/dl_dyld.xs', 'f556e5b971932902');
2817         apply_patch(<<'EOPATCH');
2818 diff -u a/ext/DynaLoader/dl_dyld.xs~ a/ext/DynaLoader/dl_dyld.xs
2819 --- a/ext/DynaLoader/dl_dyld.xs~        2011-10-11 21:41:27.000000000 +0100
2820 +++ b/ext/DynaLoader/dl_dyld.xs 2011-10-11 21:42:20.000000000 +0100
2821 @@ -41,6 +41,35 @@
2822  #include "perl.h"
2823  #include "XSUB.h"
2824  
2825 +#ifndef pTHX
2826 +#  define pTHX         void
2827 +#  define pTHX_
2828 +#endif
2829 +#ifndef aTHX
2830 +#  define aTHX
2831 +#  define aTHX_
2832 +#endif
2833 +#ifndef dTHX
2834 +#  define dTHXa(a)     extern int Perl___notused(void)
2835 +#  define dTHX         extern int Perl___notused(void)
2836 +#endif
2837 +
2838 +#ifndef Perl_form_nocontext
2839 +#  define Perl_form_nocontext form
2840 +#endif
2841 +
2842 +#ifndef Perl_warn_nocontext
2843 +#  define Perl_warn_nocontext warn
2844 +#endif
2845 +
2846 +#ifndef PTR2IV
2847 +#  define PTR2IV(p)    (IV)(p)
2848 +#endif
2849 +
2850 +#ifndef get_av
2851 +#  define get_av perl_get_av
2852 +#endif
2853 +
2854  #define DL_LOADONCEONLY
2855  
2856  #include "dlutils.c"   /* SaveError() etc      */
2857 @@ -185,7 +191,7 @@
2858      CODE:
2859      DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filename,flags));
2860      if (flags & 0x01)
2861 -       Perl_warn(aTHX_ "Can't make loaded symbols global on this platform while loading %s",filename);
2862 +       Perl_warn_nocontext("Can't make loaded symbols global on this platform while loading %s",filename);
2863      RETVAL = dlopen(filename, mode) ;
2864      DLDEBUG(2,PerlIO_printf(Perl_debug_log, " libref=%x\n", RETVAL));
2865      ST(0) = sv_newmortal() ;
2866 EOPATCH
2867         if ($major < 4 && !extract_from_file('util.c', qr/^form/m)) {
2868             apply_patch(<<'EOPATCH');
2869 diff -u a/ext/DynaLoader/dl_dyld.xs~ a/ext/DynaLoader/dl_dyld.xs
2870 --- a/ext/DynaLoader/dl_dyld.xs~        2011-10-11 21:56:25.000000000 +0100
2871 +++ b/ext/DynaLoader/dl_dyld.xs 2011-10-11 22:00:00.000000000 +0100
2872 @@ -60,6 +60,18 @@
2873  #  define get_av perl_get_av
2874  #endif
2875  
2876 +static char *
2877 +form(char *pat, ...)
2878 +{
2879 +    char *retval;
2880 +    va_list args;
2881 +    va_start(args, pat);
2882 +    vasprintf(&retval, pat, &args);
2883 +    va_end(args);
2884 +    SAVEFREEPV(retval);
2885 +    return retval;
2886 +}
2887 +
2888  #define DL_LOADONCEONLY
2889  
2890  #include "dlutils.c"   /* SaveError() etc      */
2891 EOPATCH
2892         }
2893     }
2894
2895     if ($major < 10) {
2896         if (!extract_from_file('ext/DB_File/DB_File.xs',
2897                                qr!^#else /\* Berkeley DB Version > 2 \*/$!)) {
2898             # This DB_File.xs is really too old to patch up.
2899             # Skip DB_File, unless we're invoked with an explicit -Unoextensions
2900             if (!exists $defines{noextensions}) {
2901                 $defines{noextensions} = 'DB_File';
2902             } elsif (defined $defines{noextensions}) {
2903                 $defines{noextensions} .= ' DB_File';
2904             }
2905         } elsif (!extract_from_file('ext/DB_File/DB_File.xs',
2906                                     qr/^#ifdef AT_LEAST_DB_4_1$/)) {
2907             # This line is changed by commit 3245f0580c13b3ab
2908             my $line = extract_from_file('ext/DB_File/DB_File.xs',
2909                                          qr/^(        status = \(?RETVAL->dbp->open\)?\(RETVAL->dbp, name, NULL, RETVAL->type, $)/);
2910             apply_patch(<<"EOPATCH");
2911 diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
2912 index 489ba96..fba8ded 100644
2913 --- a/ext/DB_File/DB_File.xs
2914 +++ b/ext/DB_File/DB_File.xs
2915 \@\@ -183,4 +187,8 \@\@
2916  #endif
2917  
2918 +#if DB_VERSION_MAJOR > 4 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 1)
2919 +#    define AT_LEAST_DB_4_1
2920 +#endif
2921 +
2922  /* map version 2 features & constants onto their version 1 equivalent */
2923  
2924 \@\@ -1334,7 +1419,12 \@\@ SV *   sv ;
2925  #endif
2926  
2927 +#ifdef AT_LEAST_DB_4_1
2928 +        status = (RETVAL->dbp->open)(RETVAL->dbp, NULL, name, NULL, RETVAL->type, 
2929 +                               Flags, mode) ; 
2930 +#else
2931  $line
2932                                 Flags, mode) ; 
2933 +#endif
2934         /* printf("open returned %d %s\\n", status, db_strerror(status)) ; */
2935  
2936 EOPATCH
2937         }
2938     }
2939
2940     if ($major < 10 and -f 'ext/IPC/SysV/SysV.xs') {
2941         edit_file('ext/IPC/SysV/SysV.xs', sub {
2942                       my $xs = shift;
2943                       my $fixed = <<'EOFIX';
2944
2945 #include <sys/types.h>
2946 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
2947 #ifndef HAS_SEM
2948 #   include <sys/ipc.h>
2949 #endif
2950 #   ifdef HAS_MSG
2951 #       include <sys/msg.h>
2952 #   endif
2953 #   ifdef HAS_SHM
2954 #       if defined(PERL_SCO) || defined(PERL_ISC)
2955 #           include <sys/sysmacros.h>   /* SHMLBA */
2956 #       endif
2957 #      include <sys/shm.h>
2958 #      ifndef HAS_SHMAT_PROTOTYPE
2959            extern Shmat_t shmat (int, char *, int);
2960 #      endif
2961 #      if defined(HAS_SYSCONF) && defined(_SC_PAGESIZE)
2962 #          undef  SHMLBA /* not static: determined at boot time */
2963 #          define SHMLBA sysconf(_SC_PAGESIZE)
2964 #      elif defined(HAS_GETPAGESIZE)
2965 #          undef  SHMLBA /* not static: determined at boot time */
2966 #          define SHMLBA getpagesize()
2967 #      endif
2968 #   endif
2969 #endif
2970 EOFIX
2971                       $xs =~ s!
2972 #include <sys/types\.h>
2973 .*
2974 (#ifdef newCONSTSUB|/\* Required)!$fixed$1!ms;
2975                       return $xs;
2976                   });
2977     }
2978 }
2979
2980 # Local variables:
2981 # cperl-indent-level: 4
2982 # indent-tabs-mode: nil
2983 # End:
2984 #
2985 # ex: set ts=8 sts=4 sw=4 et: