[libnanomsg-raw-perl] 01/01: Add patch to try and correct errors under Perl 5.20.

[Harlan Lieberman-Berg]

This is an automated email from the git hooks/post-receive script.

hlieberman-guest pushed a commit to branch master
in repository libnanomsg-raw-perl.

commit 1670d449c89e788b60d16f1cddc90476ca605600
Author: Harlan Lieberman-Berg <harlan at advertisin.com>
Date:   Tue Aug 26 15:49:07 2014 -0700

    Add patch to try and correct errors under Perl 5.20.
---
 debian/patches/0002-fix-5.20-errors.patch | 31 +++++++++++++++++++++++++++++++
 debian/patches/series                     |  1 +
 2 files changed, 32 insertions(+)

diff --git a/debian/patches/0002-fix-5.20-errors.patch b/debian/patches/0002-fix-5.20-errors.patch
new file mode 100644
index 0000000..2045d43
--- /dev/null
+++ b/debian/patches/0002-fix-5.20-errors.patch
@@ -0,0 +1,31 @@
+Description: Ensure that variable is initialized and stack has enough room.
+ This was probably always a bug in the upstream code, but with perl
+ versions smaller than 5.20, there was enough room that we didn't trample
+ over things.
+ .
+ Many, many thanks should go to Nicolas Dandrimont <olasd at debian.org>, who
+ was the primary author of this patch and helped me debug this problem
+ for hours.
+Author: Harlan Lieberman-Berg <H.LiebermanBerg at gmail.com>
+Bug: https://rt.cpan.org/Ticket/Display.html?id=98340
+Forwarded: yes
+--- a/Raw.xs
++++ b/Raw.xs
+@@ -243,7 +243,7 @@
+     int level
+     int option
+   PREINIT:
+-    size_t optvallen;
++    size_t optvallen = sizeof(256);
+     int ret;
+   INIT:
+     RETVAL = newSV(257);
+@@ -465,7 +465,7 @@
+     int i;
+   PPCODE:
+     for (i = 0; i <= av_len(symbol_names); i++)
+-      mPUSHs(SvREFCNT_inc(*av_fetch(symbol_names, i, 0)));
++      mXPUSHs(SvREFCNT_inc(*av_fetch(symbol_names, i, 0)));
+ 
+ BOOT:
+   symbol_names = newAV();
diff --git a/debian/patches/series b/debian/patches/series
index d03b1bd..b2a1a31 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
+0002-fix-5.20-errors.patch
 0001-fix-manpage-spelling.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnanomsg-raw-perl.git