rpms/net-snmp/FC-6 net-snmp-5.3.1-perl_bulkwalk.patch, NONE, 1.1 net-snmp.spec, 1.94, 1.95

[fedora-cvs-commits at redhat.com]

Author: rvokal

Update of /cvs/dist/rpms/net-snmp/FC-6
In directory cvs.devel.redhat.com:/tmp/cvs-serv3791

Modified Files:
	net-snmp.spec 
Added Files:
	net-snmp-5.3.1-perl_bulkwalk.patch 
Log Message:
- fix perl bulkwalk (#232913)

net-snmp-5.3.1-perl_bulkwalk.patch:
 SNMP.xs |    4 ++++
 1 files changed, 4 insertions(+)

--- NEW FILE net-snmp-5.3.1-perl_bulkwalk.patch ---
? SNMP-5.0301001.tar.gz
? out
Index: SNMP.xs
===================================================================
RCS file: /cvsroot/net-snmp/net-snmp/perl/SNMP/SNMP.xs,v
retrieving revision 5.50.2.6
diff -u -p -r5.50.2.6 SNMP.xs
--- perl/SNMP/SNMP.xs	26 May 2006 16:59:15 -0000	5.50.2.6
+++ perl/SNMP/SNMP.xs	8 Sep 2006 03:40:22 -0000
@@ -2320,6 +2320,8 @@ _bulkwalk_finish(walk_context *context, 
    SV **err_num_svp = hv_fetch((HV*)SvRV(context->sess_ref), "ErrorNum", 8, 1);
 
    dSP;
+   dMARK;
+   dITEMS;
 
    async = SvTRUE(context->perl_cb);
 
@@ -2328,6 +2330,8 @@ _bulkwalk_finish(walk_context *context, 
    ** 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));


Index: net-snmp.spec
===================================================================
RCS file: /cvs/dist/rpms/net-snmp/FC-6/net-snmp.spec,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -r1.94 -r1.95
--- net-snmp.spec	27 Feb 2007 11:47:35 -0000	1.94
+++ net-snmp.spec	26 Mar 2007 10:38:29 -0000	1.95
@@ -7,7 +7,7 @@
 Summary: A collection of SNMP protocol tools and libraries.
 Name: net-snmp
 Version: %{major_ver}
-Release: 13%{?dist}
+Release: 14%{?dist}
 Epoch: 1
 
 License: BSDish
@@ -44,6 +44,7 @@
 Patch31: net-snmp-5.3.1-tcp-udp-mib-byteorder.patch
 Patch32: net-snmp-5.3.1-local-addr-v3.patch
 Patch33: net-snmp-5.3.1-reachable_ms.patch
+Patch34: net-snmp-5.3.1-perl_bulkwalk.patch
 
 Prereq: /sbin/chkconfig
 Obsoletes: ucd-snmp
@@ -153,6 +154,7 @@
 %patch31 -p0 -b .byteorder
 %patch32 -p1 -b .local-addr
 %patch33 -p1 -b .reachable_ms
+%patch34 -p0 -b .bulkwalk
 
 # Do this patch with a perl hack...
 perl -pi -e "s|'\\\$install_libdir'|'%{_libdir}'|" ltmain.sh
@@ -358,6 +360,9 @@
 %{_libdir}/lib*.so.*
 
 %changelog
+* Mon Mar 26 2007 Radek Vokál <rvokal at redhat.com> - 5.3.1-14
+- fix perl bulkwalk (#232913)
+
 * Tue Feb 27 2007 Radek Vokál <rvokal at redhat.com> - 5.3.1-13
 - fix TCP support (#228066)
 - add mibs for other archs