@@ -23,6 +23,47 @@ index e400dda..e25e31a 100755
2323 ### warn if we are going to skip long file names
2424 if ($TOO_LONG) {
2525 diag("No long filename support - long filename extraction disabled") if ! $ENV{PERL_CORE};
26+ diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
27+ index 124b8fc..670fabc 100644
28+ --- a/ext/Errno/Errno_pm.PL
29+ +++ b/ext/Errno/Errno_pm.PL
30+ @@ -257,20 +257,31 @@ sub write_errno_pm {
31+ unless ($^O eq 'MacOS' || $^O eq 'beos') { # trust what we have / get later
32+ # invoke CPP and read the output
33+
34+ + my $inhibit_linemarkers = '';
35+ + if ($Config{gccversion} =~ /\A(\d+)\./ and $1 >= 5) {
36+ + # GCC 5.0 interleaves expanded macros with line numbers breaking
37+ + # each line into multiple lines. RT#123784
38+ + $inhibit_linemarkers = ' -P';
39+ + }
40+ +
41+ if ($^O eq 'VMS') {
42+ - my $cpp = "$Config{cppstdin} $Config{cppflags} $Config{cppminus}";
43+ + my $cpp = "$Config{cppstdin} $Config{cppflags}" .
44+ + $inhibit_linemarkers . " $Config{cppminus}";
45+ $cpp =~ s/sys\$input//i;
46+ open(CPPO,"$cpp errno.c |") or
47+ die "Cannot exec $Config{cppstdin}";
48+ } elsif ($IsMSWin32 || $^O eq 'NetWare') {
49+ - open(CPPO,"$Config{cpprun} $Config{cppflags} errno.c |") or
50+ - die "Cannot run '$Config{cpprun} $Config{cppflags} errno.c'";
51+ + my $cpp = "$Config{cpprun} $Config{cppflags}" .
52+ + $inhibit_linemarkers;
53+ + open(CPPO,"$cpp errno.c |") or
54+ + die "Cannot run '$cpp errno.c'";
55+ } elsif ($IsSymbian) {
56+ - my $cpp = "gcc -E -I$ENV{SDK}\\epoc32\\include\\libc -";
57+ + my $cpp = "gcc -E -I$ENV{SDK}\\epoc32\\include\\libc" .
58+ + $inhibit_linemarkers ." -";
59+ open(CPPO,"$cpp < errno.c |")
60+ or die "Cannot exec $cpp";
61+ } else {
62+ - my $cpp = default_cpp();
63+ + my $cpp = default_cpp() . $inhibit_linemarkers;
64+ open(CPPO,"$cpp < errno.c |")
65+ or die "Cannot exec $cpp";
66+ }
2667diff --git a/ext/Hash-Util-FieldHash/t/10_hash.t b/ext/Hash-Util-FieldHash/t/10_hash.t
2768index 2cfb4e8..d58f053 100755
2869--- a/ext/Hash-Util-FieldHash/t/10_hash.t
@@ -432,14 +473,14 @@ index de26d84..52b0492 100644
432473
433474 # Presumably this can be simplified
434475diff --git a/patchlevel.h b/patchlevel.h
435- index f1a12bd..61bf49d 100644
476+ index f1a12bd..420296d 100644
436477--- a/patchlevel.h
437478+++ b/patchlevel.h
438479@@ -131,6 +131,7 @@ static const char * const local_patches[] = {
439480 ,"uncommitted-changes"
440481 #endif
441482 PERL_GIT_UNPUSHED_COMMITS /* do not remove this line */
442- + ,"Devel::PatchPerl 1.32 "
483+ + ,"Devel::PatchPerl 1.38 "
443484 ,NULL
444485 };
445486
0 commit comments