[perl-xml-cvs] CVS: XML-LibXML-XPathContext xpath.c,1.2,1.3

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

Update of /cvsroot/perl-xml/XML-LibXML-XPathContext
In directory sc8-pr-cvs1:/tmp/cvs-serv8009

Modified Files:
	xpath.c 
Log Message:
sigsegv bugfix (same done for XML::LibXML)


Index: xpath.c
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/xpath.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- xpath.c	20 May 2003 15:25:50 -0000	1.2
+++ xpath.c	28 May 2003 09:45:07 -0000	1.3
@@ -165,6 +165,7 @@
         if ( tdoc != NULL ) {
             /* after looking through a fragment, we need to drop the
                fake document again */
+	    xmlSetTreeDoc(froot,NULL);
             froot->doc = NULL;
             tdoc->children = NULL;
             tdoc->last     = NULL;