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