From a645f979f5f49dd85168fd8c80ded24e8cdff359 Mon Sep 17 00:00:00 2001 From: Mathieu Arnold Date: Sat, 11 Apr 2015 10:31:43 +0000 Subject: Patch Perl's header for c++11 compatibility. While there, drop MASTER_SITE_SUBDIRS. PR: 199361 Submitted by: amdmi3 Sponsored by: Absolight --- lang/perl5.18/files/patch-pad.h | 46 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 lang/perl5.18/files/patch-pad.h (limited to 'lang/perl5.18/files/patch-pad.h') diff --git a/lang/perl5.18/files/patch-pad.h b/lang/perl5.18/files/patch-pad.h new file mode 100644 index 000000000000..df96aad37e16 --- /dev/null +++ b/lang/perl5.18/files/patch-pad.h @@ -0,0 +1,46 @@ +--- pad.h.orig 2014-10-01 01:33:00 UTC ++++ pad.h +@@ -143,14 +143,14 @@ typedef enum { + # define ASSERT_CURPAD_LEGAL(label) \ + pad_peg(label); \ + if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0)) \ +- Perl_croak(aTHX_ "panic: illegal pad in %s: 0x%"UVxf"[0x%"UVxf"]",\ ++ Perl_croak(aTHX_ "panic: illegal pad in %s: 0x%" UVxf "[0x%" UVxf "]",\ + label, PTR2UV(PL_comppad), PTR2UV(PL_curpad)); + + + # define ASSERT_CURPAD_ACTIVE(label) \ + pad_peg(label); \ + if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad)) \ +- Perl_croak(aTHX_ "panic: invalid pad in %s: 0x%"UVxf"[0x%"UVxf"]",\ ++ Perl_croak(aTHX_ "panic: invalid pad in %s: 0x%" UVxf "[0x%" UVxf "]",\ + label, PTR2UV(PL_comppad), PTR2UV(PL_curpad)); + #else + # define ASSERT_CURPAD_LEGAL(label) +@@ -320,7 +320,7 @@ Restore the old pad saved into the local + PL_comppad = (PAD*) (PadlistARRAY(padlist)[nth]); \ + PL_curpad = AvARRAY(PL_comppad); \ + DEBUG_Xv(PerlIO_printf(Perl_debug_log, \ +- "Pad 0x%"UVxf"[0x%"UVxf"] set_cur depth=%d\n", \ ++ "Pad 0x%" UVxf "[0x%" UVxf "] set_cur depth=%d\n", \ + PTR2UV(PL_comppad), PTR2UV(PL_curpad), (int)(nth))); + + +@@ -338,7 +338,7 @@ Restore the old pad saved into the local + PL_comppad = (npad); \ + PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : NULL; \ + DEBUG_Xv(PerlIO_printf(Perl_debug_log, \ +- "Pad 0x%"UVxf"[0x%"UVxf"] save_local\n", \ ++ "Pad 0x%" UVxf "[0x%" UVxf "] save_local\n", \ + PTR2UV(PL_comppad), PTR2UV(PL_curpad))); + + #define PAD_RESTORE_LOCAL(opad) \ +@@ -346,7 +346,7 @@ Restore the old pad saved into the local + PL_comppad = opad; \ + PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : NULL; \ + DEBUG_Xv(PerlIO_printf(Perl_debug_log, \ +- "Pad 0x%"UVxf"[0x%"UVxf"] restore_local\n", \ ++ "Pad 0x%" UVxf "[0x%" UVxf "] restore_local\n", \ + PTR2UV(PL_comppad), PTR2UV(PL_curpad))); + + -- cgit v1.2.3