r53768 - in /trunk/libpadwalker-perl/debian: changelog patches/ patches/dead-lexicals-rt55242.patch patches/series source/ source/format
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Mar 6 20:48:25 UTC 2010
Author: jawnsy-guest
Date: Sat Mar 6 20:48:18 2010
New Revision: 53768
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53768
Log:
* Convert to 3.0 (quilt) source format
* Add patch to fix possible segfault (RT#55242)
Added:
trunk/libpadwalker-perl/debian/patches/
trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch
trunk/libpadwalker-perl/debian/patches/series
trunk/libpadwalker-perl/debian/source/
trunk/libpadwalker-perl/debian/source/format
Modified:
trunk/libpadwalker-perl/debian/changelog
Modified: trunk/libpadwalker-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/changelog?rev=53768&op=diff
==============================================================================
--- trunk/libpadwalker-perl/debian/changelog (original)
+++ trunk/libpadwalker-perl/debian/changelog Sat Mar 6 20:48:18 2010
@@ -1,14 +1,16 @@
-libpadwalker-perl (1.9-2) UNRELEASED; urgency=low
+libpadwalker-perl (1.9-2) UNRELEASED; 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 <jawnsy at cpan.org> Sat, 06 Mar 2010 15:51:05 -0500
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 06 Mar 2010 15:55:23 -0500
libpadwalker-perl (1.9-1) unstable; urgency=low
Added: trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch?rev=53768&op=file
==============================================================================
--- trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch (added)
+++ trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch Sat Mar 6 20:48:18 2010
@@ -1,0 +1,48 @@
+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.
+Author: Paul Driver <frodwith at gmail.com>
+Reviewed-by: Jonathan Yu <jawnsy at cpan.org>
+Origin: other
+Bug-CPAN: http://rt.cpan.org/Ticket/Display.html?id=55242
+--- a/PadWalker.xs
++++ b/PadWalker.xs
+@@ -232,10 +232,6 @@
+ else {
+ if (is_our) {
+ val_sv = fetch_from_stash(SvOURSTASH(name_sv), name_str, name_len);
+- if (!val_sv) {
+- debug_print(("Value of our variable is undefined\n"));
+- val_sv = &PL_sv_undef;
+- }
+ }
+ else
+ {
+@@ -243,6 +239,12 @@
+ val_sv = val_ptr ? *val_ptr : &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,
+ newRV_inc(val_sv), 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";
Added: trunk/libpadwalker-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/patches/series?rev=53768&op=file
==============================================================================
--- trunk/libpadwalker-perl/debian/patches/series (added)
+++ trunk/libpadwalker-perl/debian/patches/series Sat Mar 6 20:48:18 2010
@@ -1,0 +1,1 @@
+dead-lexicals-rt55242.patch
Added: trunk/libpadwalker-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/source/format?rev=53768&op=file
==============================================================================
--- trunk/libpadwalker-perl/debian/source/format (added)
+++ trunk/libpadwalker-perl/debian/source/format Sat Mar 6 20:48:18 2010
@@ -1,0 +1,2 @@
+3.0 (quilt)
+
More information about the Pkg-perl-cvs-commits
mailing list