[Pkg-net-snmp-commits] r212 - branches/net-snmp52/debian/patches

[jochen at alioth.debian.org]

Author: jochen
Date: 2007-12-21 10:22:30 +0000 (Fri, 21 Dec 2007)
New Revision: 212

Added:
   branches/net-snmp52/debian/patches/42_libsnmp-perl.README
   branches/net-snmp52/debian/patches/42_libsnmp-perl.patch
Log:
Add upstream fix for perl bulkwalk function


Added: branches/net-snmp52/debian/patches/42_libsnmp-perl.README
===================================================================
--- branches/net-snmp52/debian/patches/42_libsnmp-perl.README	                        (rev 0)
+++ branches/net-snmp52/debian/patches/42_libsnmp-perl.README	2007-12-21 10:22:30 UTC (rev 212)
@@ -0,0 +1 @@
+Upstream Changeset 15175: perl - Fixed the perl bulkwalk function

Added: branches/net-snmp52/debian/patches/42_libsnmp-perl.patch
===================================================================
--- branches/net-snmp52/debian/patches/42_libsnmp-perl.patch	                        (rev 0)
+++ branches/net-snmp52/debian/patches/42_libsnmp-perl.patch	2007-12-21 10:22:30 UTC (rev 212)
@@ -0,0 +1,20 @@
+--- net-snmp-5.2.3.orig/perl/SNMP/SNMP.xs	2006/09/07 16:29:55
++++ net-snmp-5.2.3/perl/SNMP/SNMP.xs	2006/09/08 03:43:32
+@@ -2322,6 +2322,8 @@
+    SV **err_num_svp = hv_fetch((HV*)SvRV(context->sess_ref), "ErrorNum", 8, 1);
+ 
+    dSP;
++   dMARK;
++   dITEMS;
+ 
+    async = SvTRUE(context->perl_cb);
+ 
+@@ -2330,6 +2332,8 @@
+    ** items pushed onto the stack.  For async, create a new array and push
+    ** the references onto it.  The array is then passed to the Perl callback.
+    */
++   if(!async)
++       SP -= items;
+ 
+    DBPRT(1, (DBOUT "Bulwalk %s (saved %d/%d), ", okay ? "completed" : "had error",
+ 					context->oid_saved, context->oid_total));