Update of /cvsroot/perl-xml/XML-LibXML-XPathContext
In directory sc8-pr-cvs1:/tmp/cvs-serv17167
Modified Files:
XPathContext.xs
Log Message:
removed experimental code
Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- XPathContext.xs 16 Mar 2003 18:21:42 -0000 1.6
+++ XPathContext.xs 16 Mar 2003 18:26:13 -0000 1.7
@@ -363,28 +363,7 @@
/* warn("result is a node\n"); */
ret = (xmlXPathObjectPtr)xmlXPathNewNodeSet(NULL);
tmp_node = (xmlNodePtr)PmmSvNode(perl_result);
- warn("NODE: perl mortality count %d\n",
- SvREFCNT(SvRV(perl_result)));
- warn("NODE: owner mortality count %d\n",
- PmmREFCNT(PmmOWNERPO(((ProxyNodePtr)(tmp_node->_private)))));
- warn("NODE: mortality count %d\n",
- PmmREFCNT(((ProxyNodePtr)(tmp_node->_private))));
- warn("NODE: is proxy %d\n",
- (((ProxyNodePtr)(tmp_node->_private))->node == tmp_node));
-
- /* safely remove the node from perl structures without */
- /* deleting any real libxml2 object */
- if (SvREFCNT(SvRV(perl_result))==1) {
- int result=PmmREFCNT_dec_flag_delete(SvPROXYNODE(perl_result));
- warn("NODE PmmREFCNT_dec_flag_delete: %d\n",result);
- sv_setiv(SvRV(perl_result),0); /* make DESTROY do nothing */
- }
- /* now, this is a memory leak; something has to be done */
- /* with the nodes for which PmmREFCNT_dec_flag_delete */
- /* returned 0 */
-
xmlXPathNodeSetAdd(ret->nodesetval,tmp_node);
- warn("NODE: goto finish\n");
goto FINISH;
}
else if (sv_isa(perl_result, "XML::LibXML::Boolean")) {
|
