[perl-xml-cvs] CVS: XML-LibXML-XPathContext XPathContext.xs,1.6,1.7

[Petr P. <pa...@us...>]

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")) {