r60339 - in /trunk/libpadwalker-perl/debian: changelog patches/dead-lexicals-rt55242.patch

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Thu Jul 15 21:28:08 2010
New Revision: 60339

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60339
Log:
Refresh dead-lexicals-rt55242.patch patch.

Modified:
    trunk/libpadwalker-perl/debian/changelog
    trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch

Modified: trunk/libpadwalker-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/changelog?rev=60339&op=diff
==============================================================================
--- trunk/libpadwalker-perl/debian/changelog (original)
+++ trunk/libpadwalker-perl/debian/changelog Thu Jul 15 21:28:08 2010
@@ -3,8 +3,9 @@
   * New upstream release
   * Add myself to Uploaders.
   * debian/control: Add perl to Build-Depends.
+  * Refresh dead-lexicals-rt55242.patch patch.
 
- -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Thu, 15 Jul 2010 23:20:56 +0200
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Thu, 15 Jul 2010 23:28:03 +0200
 
 libpadwalker-perl (1.9-2) unstable; urgency=medium
 

Modified: 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=60339&op=diff
==============================================================================
--- trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch (original)
+++ trunk/libpadwalker-perl/debian/patches/dead-lexicals-rt55242.patch Thu Jul 15 21:28:08 2010
@@ -8,7 +8,7 @@
 Bug-CPAN: http://rt.cpan.org/Ticket/Display.html?id=55242
 --- a/PadWalker.xs
 +++ b/PadWalker.xs
-@@ -232,10 +232,6 @@
+@@ -236,10 +236,6 @@
              else {
                if (is_our) {
                  val_sv = fetch_from_stash(SvOURSTASH(name_sv), name_str, name_len);
@@ -19,7 +19,7 @@
                }
                else
                {
-@@ -243,6 +239,12 @@
+@@ -247,6 +243,12 @@
                  val_sv = val_ptr ? *val_ptr : &PL_sv_undef;
                }
  
@@ -30,7 +30,7 @@
 +              }
 +
                hv_store((is_our ? our_hash : my_hash), name_str, name_len,
-                        newRV_inc(val_sv), 0);
+                        (val_sv ? newRV_inc(val_sv) : &PL_sv_undef), 0);
              }
 --- /dev/null
 +++ b/t/dead_my.t