[SCM] Debian packaging of libsignatures-perl branch, master, updated. e50c14ecf8353bdb87c50e5fdb1f20f56f361b5c

Angel Abad angelabad at gmail.com
Sun Apr 22 20:19:13 UTC 2012


The following commit has been merged in the master branch:
commit 2a86477b9057e27a737dc63a2f83ab2ec0a897f7
Author: Angel Abad <angelabad at gmail.com>
Date:   Sun Apr 22 22:05:18 2012 +0200

    debian/patches/reallocate_pl_linestr: fix ftbfs,
     With Perl >= 5.13.6, reallocate PL_linestr in a block hook to
     avoid reallocations; borrowed loosely from Devel::Declare

diff --git a/debian/patches/reallocate_pl_linestr b/debian/patches/reallocate_pl_linestr
new file mode 100644
index 0000000..6ac9aa4
--- /dev/null
+++ b/debian/patches/reallocate_pl_linestr
@@ -0,0 +1,46 @@
+Description: With Perl >= 5.13.6, reallocate PL_linestr in a block
+ hook to avoid reallocations; borrowed loosely from Devel::Declare
+Author: Colin Watson <cjwatson at ubuntu.com>
+Bug-Debian: http://bugs.debian.org/636132
+Bug-Ubuntu: https://bugs.launchpad.net/bugs/935261
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=66997
+
+--- signatures-0.05.orig/signatures.xs
++++ signatures-0.05/signatures.xs
+@@ -241,6 +241,16 @@
+ 	return ret;
+ }
+ 
++#if PERL_BCDVERSION >= 0x5013006
++STATIC void
++block_start (pTHX_ int full) {
++	PERL_UNUSED_VAR (full);
++
++	if (SvLEN (PL_linestr) < 16384)
++		lex_grow_linestr (16384);
++}
++#endif
++
+ STATIC OP *
+ before_eval (pTHX_ OP *op, void *user_data) {
+ 	dSP;
+@@ -293,12 +303,19 @@
+ 		char *f_class
+ 	PREINIT:
+ 		userdata_t *ud;
++#if PERL_BCDVERSION >= 0x5013006
++		static BHK bhk;
++#endif
+ 	INIT:
+ 		Newx (ud, 1, userdata_t);
+ 		ud->class = newSVsv (class);
+ 		ud->f_class = f_class;
+ 	CODE:
+ 		ud->parser_id = hook_parser_setup ();
++#if PERL_BCDVERSION >= 0x5013006
++		BhkENTRY_set (&bhk, bhk_start, block_start);
++		Perl_blockhook_register (aTHX_ &bhk);
++#endif
+ 		ud->eval_hook = hook_op_check (OP_ENTEREVAL, handle_eval, ud);
+ 		RETVAL = (UV)hook_op_check (OP_CONST, handle_proto, ud);
+ 	OUTPUT:
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..e2ca41c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+reallocate_pl_linestr

-- 
Debian packaging of libsignatures-perl



More information about the Pkg-perl-cvs-commits mailing list