r35174 - in /trunk/libpadwalker-perl: PadWalker.xs debian/patches/ debian/patches/fix-segfault debian/patches/series

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Mon May 11 15:06:00 UTC 2009


Author: ryan52-guest
Date: Mon May 11 15:05:55 2009
New Revision: 35174

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35174
Log:
oops, forgot to commit it in debian/patches

Added:
    trunk/libpadwalker-perl/debian/patches/
    trunk/libpadwalker-perl/debian/patches/fix-segfault
    trunk/libpadwalker-perl/debian/patches/series
Modified:
    trunk/libpadwalker-perl/PadWalker.xs

Modified: trunk/libpadwalker-perl/PadWalker.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/PadWalker.xs?rev=35174&op=diff
==============================================================================
--- trunk/libpadwalker-perl/PadWalker.xs (original)
+++ trunk/libpadwalker-perl/PadWalker.xs Mon May 11 15:05:55 2009
@@ -357,9 +357,6 @@
 void
 get_closed_over(CV *cv, HV *hash, HV *indices)
 {
- if (!CvPADLIST(cv)) {
- return;
- }
     I32 i;
     U32 val_depth = CvDEPTH(cv) ? CvDEPTH(cv) : 1;
     AV *pad_namelist = (AV*) *av_fetch(CvPADLIST(cv), 0, FALSE);

Added: trunk/libpadwalker-perl/debian/patches/fix-segfault
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/patches/fix-segfault?rev=35174&op=file
==============================================================================
--- trunk/libpadwalker-perl/debian/patches/fix-segfault (added)
+++ trunk/libpadwalker-perl/debian/patches/fix-segfault Mon May 11 15:05:55 2009
@@ -1,0 +1,12 @@
+--- a/PadWalker.xs
++++ b/PadWalker.xs
+@@ -357,6 +357,9 @@
+ void
+ get_closed_over(CV *cv, HV *hash, HV *indices)
+ {
++ if (!CvPADLIST(cv)) {
++ return;
++ }
+     I32 i;
+     U32 val_depth = CvDEPTH(cv) ? CvDEPTH(cv) : 1;
+     AV *pad_namelist = (AV*) *av_fetch(CvPADLIST(cv), 0, FALSE);

Added: trunk/libpadwalker-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/patches/series?rev=35174&op=file
==============================================================================
--- trunk/libpadwalker-perl/debian/patches/series (added)
+++ trunk/libpadwalker-perl/debian/patches/series Mon May 11 15:05:55 2009
@@ -1,0 +1,1 @@
+fix-segfault




More information about the Pkg-perl-cvs-commits mailing list