[SCM] Debian packaging of libpadwalker-perl branch, master, updated. debian/1.94-1-17-gac4621e

[gregor herrmann]

The following commit has been merged in the master branch:
commit 345ca82d858cb0a811f075cf36d1a20fafa55a94
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon May 13 20:23:39 2013 +0200

    Refresh patch.

diff --git a/debian/patches/dead-lexicals-rt55242.patch b/debian/patches/dead-lexicals-rt55242.patch
index a385db8..7ff65a7 100644
--- a/debian/patches/dead-lexicals-rt55242.patch
+++ b/debian/patches/dead-lexicals-rt55242.patch
@@ -8,10 +8,10 @@ Origin: other
 Bug-CPAN: http://rt.cpan.org/Ticket/Display.html?id=55242
 --- a/PadWalker.xs
 +++ b/PadWalker.xs
-@@ -236,10 +236,6 @@
-             else {
+@@ -255,10 +255,6 @@
                if (is_our) {
-                 val_sv = fetch_from_stash(SvOURSTASH(name_sv), name_str, name_len);
+                 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;
@@ -19,8 +19,8 @@ Bug-CPAN: http://rt.cpan.org/Ticket/Display.html?id=55242
                }
                else
                {
-@@ -247,6 +243,12 @@
-                 val_sv = val_ptr ? *val_ptr : &PL_sv_undef;
+@@ -267,6 +263,12 @@
+                 if (!val_sv) val_sv = &PL_sv_undef;
                }
  
 +              if (!val_sv) {

-- 
Debian packaging of libpadwalker-perl