debian/0000755000000000000000000000000012252152470007166 5ustar debian/rules0000755000000000000000000000003612252152470010245 0ustar #!/usr/bin/make -f %: dh $@ debian/control0000644000000000000000000000273712252152470010602 0ustar Source: libpadwalker-perl Section: perl Priority: optional Build-Depends: debhelper (>= 9.20120312), perl Maintainer: Debian Perl Group Uploaders: Salvatore Bonaccorso , Ryan Niebur , Jonathan Yu , Martín Ferrari , gregor herrmann Standards-Version: 3.9.5 Homepage: https://metacpan.org/release/PadWalker/ Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libpadwalker-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libpadwalker-perl.git Package: libpadwalker-perl Architecture: any Depends: ${misc:Depends}, ${perl:Depends}, ${shlibs:Depends} Description: module to inspect and manipulate lexical variables PadWalker is a module that allows you to inspect and even modify lexical variables in the current "lexical pad stack." Perl tracks which variables are accessible and visible in each lexical scope by keeping a separate set of variables for each scope. This module looks for a given variable by traversing that stack, which allows it to alter anything in the stack, even variables not normally accessible in the current scope. . In practise, this module is useful for checking anything defined in the full stack of subroutines that called your function, making it extremely useful for debugging. It is, however, not recommended for use in production code. debian/source/0000755000000000000000000000000012252152470010466 5ustar debian/source/format0000644000000000000000000000001412252152470011674 0ustar 3.0 (quilt) debian/changelog0000644000000000000000000001436612252152470011052 0ustar libpadwalker-perl (1.98-1) unstable; urgency=medium * New upstream release. * Declare compliance with Debian Policy 3.9.5. -- gregor herrmann Wed, 11 Dec 2013 22:12:22 +0100 libpadwalker-perl (1.96-1) unstable; urgency=low [ Salvatore Bonaccorso ] * Change Vcs-Git to canonical URI (git://anonscm.debian.org) * Change search.cpan.org based URIs to metacpan.org based URIs [ gregor herrmann ] * New upstream release. Fixes "FTBFS with perl 5.18: build failure due to API changes" (Closes: #708023) * Update years of upstream copyright. * Refresh patch. * Set Standards-Version to 3.9.4 (no changes). * Use debhelper 9.20120312 to get all hardening flags. * Add lintian override (hardening-no-fortify-functions). * Add /me to Uploaders. -- gregor herrmann Mon, 13 May 2013 20:28:22 +0200 libpadwalker-perl (1.94-1) unstable; urgency=low * Imported Upstream version 1.94 * Update debian/copyright to copyright-format 1.0 * Bump Standards-Version to 3.9.3 -- Salvatore Bonaccorso Tue, 26 Jun 2012 19:11:44 +0200 libpadwalker-perl (1.93-1) unstable; urgency=low [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. [ Salvatore Bonaccorso ] * Email change: Salvatore Bonaccorso -> carnil@debian.org * debian/copyright: Replace DEP5 Format-Specification URL from svn.debian.org to anonscm.debian.org URL. * Imported Upstream version 1.93 * Bump Debhelper compat level to 9. Adjust Build-Depends for debhelper to (>= 9). * Update debian/copyright file. Update format for DEP5 proposal for machine-readable copyright file information to revision 174 of the proposal. Update copyright years for debian/* packaging. Refer to Debian systems in general instead of only Debian GNU/Linux systems. * Bump Standards-Version to 3.9.2 -- Salvatore Bonaccorso Wed, 08 Feb 2012 23:20:20 +0100 libpadwalker-perl (1.92-1) unstable; urgency=low * New upstream release * Add myself to Uploaders. * debian/control: Add perl to Build-Depends. * Refresh dead-lexicals-rt55242.patch patch. * debian/copyright: Refresh format of file according to revision 135 of DEP5 and update copyright years for upstream stanza. Refresh debian/* packaging stanza. * Bump Standards-Version to 3.9.0 (no changes needed). -- Salvatore Bonaccorso Thu, 15 Jul 2010 23:52:39 +0200 libpadwalker-perl (1.9-2) unstable; urgency=medium [ Jonathan Yu ] * Standards-Version 3.8.4 (no changes) * Update copyright information to DEP5 format * Convert to 3.0 (quilt) source format * Add patch to fix possible segfault (RT#55242) [ Ryan Niebur ] * Update jawnsy's email address * Update ryan52's email address -- Jonathan Yu Sat, 06 Mar 2010 17:03:08 -0500 libpadwalker-perl (1.9-1) unstable; urgency=low * New upstream release + New feature, set_closed_over + Copyright years updated to 2000-2009 * Removed quilt stuff, since the patch is now applied upstream * Debhelper dependency back to 7, since quilt isn't used anymore * Standards version 3.8.2 (no changes) * Added /me to d/copyright and Uploaders * Updated description (hopefully it's a bit more clear) [ Nathan Handler ] * debian/watch: Update to ignore development releases. -- Jonathan Yu Fri, 26 Jun 2009 06:53:18 -0400 libpadwalker-perl (1.7-2) unstable; urgency=low [ gregor herrmann ] * debian/control: Changed: Switched Vcs-Browser field to ViewSVN (source stanza). * Remove Florian Ragwitz from Uploaders (closes: #523263). [ Ryan Niebur ] * standards version 3.8.1 * dh7 based debian/rules * add myself to uploaders * add quilt patching * fix segfault (Closes: #528154) * update copyright information * update formatting of debian/copyright for the machine readable format * add README.source [ gregor herrmann ] * debian/control: make short description a noun phrase. -- Ryan Niebur Mon, 11 May 2009 08:13:00 -0700 libpadwalker-perl (1.7-1) unstable; urgency=low [ gregor herrmann ] * Take over for the Debian Perl Group with maintainer's permission (http://lists.debian.org/debian-perl/2008/06/msg00039.html) * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); Homepage field (source stanza). Changed: Maintainer set to Debian Perl Group (was: Florian Ragwitz ); Florian Ragwitz moved to Uploaders. * Ack NMU (closes: #471531). [ Martín Ferrari ] * New upstream release. * debian/control: Added myself to Uploaders, bumped Standards-Version: no changes, upgraded debhelper version to 5, upgraded perl dependency to match META.yaml, corrected short Description case. * debian/rules: refreshed from templates, removed README as it's a dump of the manpage. * debian/copyright: new format, added packaging copyright. -- Martín Ferrari Tue, 17 Jun 2008 10:48:00 -0300 libpadwalker-perl (1.6-0.1) unstable; urgency=low * Non-maintainer upload. * New upstream release. + the only change fixes pointer truncation on 64-bit architectures. (Closes: #458195) * Fix build failure with Perl 5.10: don't try to remove /usr/share/perl5 if it does not exist. (Closes: #463546) * Update debian/watch. (Closes: #450230) -- Niko Tyni Tue, 18 Mar 2008 20:43:45 +0200 libpadwalker-perl (1.5-1) unstable; urgency=low * New upstream release (Closes: #438569). * Bump up Standards-Version to 3.7.2 (no changes). * Don't ignore make realclean errors. -- Florian Ragwitz Sat, 18 Aug 2007 18:23:08 +0200 libpadwalker-perl (1.0-1) unstable; urgency=low * New Maintainer with acknowledgement from the former one. * New upstream release (Closes: #329650). * Bumped up Standards-Version to 3.6.2 (no changes). * Moved perl build-dep-indep to build-dep as this package isn't arch-indep. -- Florian Ragwitz Thu, 9 Feb 2006 22:53:53 +0100 libpadwalker-perl (0.10-1) unstable; urgency=low * Initial Release. -- Chip Salzenberg Thu, 7 Apr 2005 17:39:13 -0400 debian/compat0000644000000000000000000000000212252152470010364 0ustar 9 debian/patches/0000755000000000000000000000000012252152470010615 5ustar debian/patches/dead-lexicals-rt55242.patch0000644000000000000000000000266712252152470015375 0ustar Description: fix segfault with freed lexicals If lexicals are freed, their memory becomes NULL, but PadWalker still tries to make a reference to it, causing a segmentation fault. Origin: other Bug: http://rt.cpan.org/Ticket/Display.html?id=55242 Author: Paul Driver Reviewed-by: Jonathan Yu Last-Update: 2010-07-15 --- a/PadWalker.xs +++ b/PadWalker.xs @@ -255,10 +255,6 @@ if (is_our) { val_sv = fetch_from_stash(PadnameOURSTASH(name_sv), name_str, name_len); - if (!val_sv) { - debug_print(("Value of our variable is undefined\n")); - val_sv = &PL_sv_undef; - } } else { @@ -267,6 +263,12 @@ if (!val_sv) val_sv = &PL_sv_undef; } + if (!val_sv) { + debug_print(("Value of %s variable is undefined\n", + is_our ? "our" : "my")); + val_sv = &PL_sv_undef; + } + hv_store((is_our ? our_hash : my_hash), name_str, name_len, (val_sv ? newRV_inc(val_sv) : &PL_sv_undef), 0); } --- /dev/null +++ b/t/dead_my.t @@ -0,0 +1,11 @@ +use PadWalker qw(peek_my); + +print "1..1\n"; + +my $outer = 42; +sub { + my $inner = $outer; + sub { peek_my 0 } +}->()->(); + +print "ok 1\n"; debian/patches/series0000644000000000000000000000003412252152470012027 0ustar dead-lexicals-rt55242.patch debian/copyright0000644000000000000000000000261012252152470011120 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: PadWalker Upstream-Contact: Robin Houston Source: https://metacpan.org/release/PadWalker/ Files: * Copyright: 2000-2012, Robin Houston License: Artistic or GPL-1+ Files: debian/* Copyright: 2005, Chip Salzenberg 2006, 2007, Florian Ragwitz 2008, Martín Ferrari 2008, Niko Tyni 2009, Ryan Niebur 2009, 2010, Jonathan Yu 2010-2012, Salvatore Bonaccorso 2013, gregor herrmann License: Artistic or 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 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 systems, the complete text of version 1 of the General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/watch0000644000000000000000000000015412252152470010217 0ustar version=3 https://metacpan.org/release/PadWalker/ .*/PadWalker-v?(\d[\d.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip) debian/libpadwalker-perl.lintian-overrides0000644000000000000000000000017212252152470016147 0ustar # blhc disagrees with lintian libpadwalker-perl: hardening-no-fortify-functions usr/lib/perl5/auto/PadWalker/PadWalker.so