Date: Fri, 24 Apr 2015 12:57:02 +0000 (UTC) From: Mathieu Arnold <mat@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r384636 - head/devel/p5-Data-Alias/files Message-ID: <201504241257.t3OCv2Ap070522@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: mat Date: Fri Apr 24 12:57:01 2015 New Revision: 384636 URL: https://svnweb.freebsd.org/changeset/ports/384636 Log: Fix with Perl 5.21.11. Sponsored by: Absolight Modified: head/devel/p5-Data-Alias/files/patch-Alias.xs Modified: head/devel/p5-Data-Alias/files/patch-Alias.xs ============================================================================== --- head/devel/p5-Data-Alias/files/patch-Alias.xs Fri Apr 24 12:15:27 2015 (r384635) +++ head/devel/p5-Data-Alias/files/patch-Alias.xs Fri Apr 24 12:57:01 2015 (r384636) @@ -140,17 +140,21 @@ tmp = kLISTOP->op_first; if (inside) op_null(tmp); -@@ -2001,6 +2035,9 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { +@@ -2001,6 +2035,13 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { while (kid->op_sibling != last) kid = kid->op_sibling; kid->op_sibling = Nullop; +#ifdef op_sibling_splice ++#if (PERL_COMBI_VERSION >= 5021011) ++ kid->op_moresib = 0; ++#else + kid->op_lastsib = 1; +#endif ++#endif cLISTOPx(cUNOPo->op_first)->op_last = kid; if (kid->op_type == OP_NULL && inside) kid->op_flags &= ~OPf_SPECIAL; -@@ -2008,6 +2045,14 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { +@@ -2008,6 +2049,14 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { return o; } @@ -165,7 +169,7 @@ MODULE = Data::Alias PACKAGE = Data::Alias -@@ -2025,6 +2070,10 @@ BOOT: +@@ -2025,6 +2074,10 @@ BOOT: PL_check[OP_RV2CV] = da_ck_rv2cv; da_old_ck_entersub = PL_check[OP_ENTERSUB]; PL_check[OP_ENTERSUB] = da_ck_entersub;
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201504241257.t3OCv2Ap070522>