You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2002/02/21 04:00:58 UTC
cvs commit: xml-xerces/perl/Handler PerlErrorCallbackHandler.cpp
jasons 02/02/20 19:00:58
Modified: perl/Handler PerlErrorCallbackHandler.cpp
Log:
* Handler/PerlErrorCallbackHandler.cpp (Repository):
Added code to decrement the refcount of the callback object when
it's been replaced by another
Revision Changes Path
1.3 +4 -0 xml-xerces/perl/Handler/PerlErrorCallbackHandler.cpp
Index: PerlErrorCallbackHandler.cpp
===================================================================
RCS file: /home/cvs/xml-xerces/perl/Handler/PerlErrorCallbackHandler.cpp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- PerlErrorCallbackHandler.cpp 10 Sep 2001 07:15:04 -0000 1.2
+++ PerlErrorCallbackHandler.cpp 21 Feb 2002 03:00:58 -0000 1.3
@@ -15,6 +15,10 @@
void
PerlErrorCallbackHandler::set_callback_obj(SV* object) {
+ if (callbackObj) {
+ SvREFCNT_dec(callbackObj);
+// printf("decrementing callbackObj: set_callback");
+ }
SvREFCNT_inc(object);
callbackObj = object;
// printf("in error: set_callback");
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org