Attachment 155441 Details for Bug 199361 – Patch

[patch] Patch

perl5.18.patch (text/plain), 4.09 KB, created by Dmitry Marakasov on 2015-04-11 01:33:40 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Dmitry Marakasov

Created: 2015-04-11 01:33:40 UTC

Size: 4.09 KB

patch

obsolete

>Index: Makefile
>===================================================================
>--- Makefile	(revision 383761)
>+++ Makefile	(working copy)
>@@ -3,7 +3,7 @@
> 
> PORTNAME=	perl
> PORTVERSION=	${PERL_VERSION}
>-PORTREVISION=	12
>+PORTREVISION=	13
> CATEGORIES=	lang devel perl5
> MASTER_SITES=	CPAN
> MASTER_SITE_SUBDIR=	../../src
>Index: files/patch-pad.h
>===================================================================
>--- files/patch-pad.h	(revision 0)
>+++ files/patch-pad.h	(working copy)
>@@ -0,0 +1,46 @@
>+--- pad.h.orig	2014-10-01 05:33:00.000000000 +0400
>++++ pad.h	2015-04-10 22:38:49.761426000 +0300
>+@@ -143,14 +143,14 @@
>+ #  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 @@
>+ 	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 @@
>+ 	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 @@
>+ 	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)));
>+ 
>+ 
>
>Property changes on: files/patch-pad.h
>___________________________________________________________________
>Added: fbsd:nokeywords
>## -0,0 +1 ##
>+yes
>\ No newline at end of property
>Added: svn:eol-style
>## -0,0 +1 ##
>+native
>\ No newline at end of property
>Added: svn:mime-type
>## -0,0 +1 ##
>+text/plain
>\ No newline at end of property
>Index: files/patch-perl.h
>===================================================================
>--- files/patch-perl.h	(revision 0)
>+++ files/patch-perl.h	(working copy)
>@@ -0,0 +1,20 @@
>+--- perl.h.orig	2014-10-01 05:33:00.000000000 +0400
>++++ perl.h	2015-04-11 03:25:02.670097000 +0300
>+@@ -4254,7 +4254,7 @@
>+ EXTCONST char PL_warn_uninit[]
>+   INIT("Use of uninitialized value%s%s%s");
>+ EXTCONST char PL_warn_uninit_sv[]
>+-  INIT("Use of uninitialized value%"SVf"%s%s");
>++  INIT("Use of uninitialized value%" SVf "%s%s");
>+ EXTCONST char PL_warn_nosemi[]
>+   INIT("Semicolon seems to be missing");
>+ EXTCONST char PL_warn_reserved[]
>+@@ -4274,7 +4274,7 @@
>+ EXTCONST char PL_no_aelem[]
>+   INIT("Modification of non-creatable array value attempted, subscript %d");
>+ EXTCONST char PL_no_helem_sv[]
>+-  INIT("Modification of non-creatable hash value attempted, subscript \"%"SVf"\"");
>++  INIT("Modification of non-creatable hash value attempted, subscript \"%" SVf "\"");
>+ EXTCONST char PL_no_modify[]
>+   INIT("Modification of a read-only value attempted");
>+ EXTCONST char PL_no_mem[sizeof("Out of memory!\n")]
>
>Property changes on: files/patch-perl.h
>___________________________________________________________________
>Added: fbsd:nokeywords
>## -0,0 +1 ##
>+yes
>\ No newline at end of property
>Added: svn:eol-style
>## -0,0 +1 ##
>+native
>\ No newline at end of property
>Added: svn:mime-type
>## -0,0 +1 ##
>+text/plain
>\ No newline at end of property

Actions: View | Diff

Attachments on bug 199361: 155441