--- libsignatures-perl-0.05.orig/signatures.xs +++ libsignatures-perl-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: --- libsignatures-perl-0.05.orig/debian/changelog +++ libsignatures-perl-0.05/debian/changelog @@ -0,0 +1,18 @@ +libsignatures-perl (0.05-1ubuntu1) precise; urgency=low + + * With Perl >= 5.13.6, reallocate PL_linestr in a block hook to avoid + reallocations; borrowed loosely from Devel::Declare (LP: #935261). + + -- Colin Watson Sun, 22 Apr 2012 18:34:10 +0100 + +libsignatures-perl (0.05-1build1) oneiric; urgency=low + + * Rebuild for Perl 5.12. + + -- Colin Watson Tue, 10 May 2011 10:43:41 +0100 + +libsignatures-perl (0.05-1) unstable; urgency=low + + * Initial Release. (Closes: #529245) + + -- Ryan Niebur Mon, 18 May 2009 20:34:44 -0700 --- libsignatures-perl-0.05.orig/debian/rules +++ libsignatures-perl-0.05/debian/rules @@ -0,0 +1,4 @@ +#!/usr/bin/make -f + +%: + dh $@ --- libsignatures-perl-0.05.orig/debian/watch +++ libsignatures-perl-0.05/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://search.cpan.org/dist/signatures/ .*/signatures-v?(\d[\d_.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ --- libsignatures-perl-0.05.orig/debian/compat +++ libsignatures-perl-0.05/debian/compat @@ -0,0 +1 @@ +7 --- libsignatures-perl-0.05.orig/debian/control +++ libsignatures-perl-0.05/debian/control @@ -0,0 +1,30 @@ +Source: libsignatures-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 7), libb-hooks-op-check-perl (>= 0.17), + libb-hooks-parser-perl (>= 0.07), libb-hooks-op-ppaddr-perl, + libb-hooks-endofscope-perl (>= 0.08), perl (>= 5.6.0-12), + libextutils-depends-perl, libperl6-junction-perl +Maintainer: Ubuntu Developers +XSBC-Original-Maintainer: Debian Perl Group +Uploaders: Ryan Niebur +Standards-Version: 3.8.1 +Homepage: http://search.cpan.org/dist/signatures/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsignatures-perl/ +Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libsignatures-perl/ + +Package: libsignatures-perl +Architecture: any +Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}, + libb-hooks-op-check-perl (>= 0.17), libb-hooks-parser-perl (>= 0.07), + libb-hooks-op-ppaddr-perl, libb-hooks-endofscope-perl (>= 0.08) +Description: Perl module for subroutine signatures with no source filter + With signatures, you can specify subroutine signatures and have + variables automatically defined within the subroutine. Note that, + although the syntax is very similar, the signatures provided by this + module are not to be confused with the prototypes described in + perlsub. All this module does is extracting items of @_ and assigning + them to the variables in the parameter list. No argument validation + is done at runtime. + + --- libsignatures-perl-0.05.orig/debian/copyright +++ libsignatures-perl-0.05/debian/copyright @@ -0,0 +1,40 @@ +Format-Specification: + http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196 +Upstream-Maintainer: Florian Ragwitz +Upstream-Source: http://search.cpan.org/dist/signatures/ +Upstream-Name: signatures + +Files: * +Copyright: Copyright (c) 2008 Florian Ragwitz +License-Alias: Perl +License: Artistic | GPL-1+ + +Files: inc/* +Copyright: Copyright 2008 - 2009 Adam Kennedy. +License-Alias: Perl +License: Artistic | GPL-1+ + +Files: ppport.h +Copyright: 2004-2008, Marcus Holland-Moritz, + 2001, Paul Marquess, + 1999, Kenneth Albanowski +License-Alias: Perl +License: Artistic | GPL-1+ + +Files: debian/* +Copyright: 2009, Ryan Niebur +License: Artistic | GPL-1+ + +License: Artistic + This program is free software; you can redistribute it and/or modify + it under the terms of the Artistic License, which comes with Perl. + On Debian GNU/Linux systems, the complete text of the Artistic License + can be found in `/usr/share/common-licenses/Artistic' + +License: GPL-1+ + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + On Debian GNU/Linux systems, the complete text of the GNU General + Public License can be found in `/usr/share/common-licenses/GPL'