[perl-xml-cvs] CVS: XML-LibXML-XPathContext XPathContext.xs,1.27,1.28

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

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

Modified Files:
	XPathContext.xs 
Log Message:
- fix LibXML_configure_namespaces for NULL context node


Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- XPathContext.xs	2 Apr 2003 14:07:08 -0000	1.27
+++ XPathContext.xs	2 Apr 2003 14:15:05 -0000	1.28
@@ -401,16 +401,18 @@
     if (ctxt->namespaces != NULL) {
         xmlFree( ctxt->namespaces );
     }
-    if (node->type == XML_DOCUMENT_NODE) {
-        ctxt->namespaces = xmlGetNsList( node->doc,
-                                         xmlDocGetRootElement( node->doc ) );
-    } else {
-        ctxt->namespaces = xmlGetNsList(node->doc, node);
-    }
-    ctxt->nsNr = 0;
-    if (ctxt->namespaces != NULL) {
-        while (ctxt->namespaces[ctxt->nsNr] != NULL)
-            ctxt->nsNr++;
+    if (node != NULL) {
+        if (node->type == XML_DOCUMENT_NODE) {
+            ctxt->namespaces = xmlGetNsList( node->doc,
+                                             xmlDocGetRootElement( node->doc ) );
+        } else {
+            ctxt->namespaces = xmlGetNsList(node->doc, node);
+        }
+        ctxt->nsNr = 0;
+        if (ctxt->namespaces != NULL) {
+            while (ctxt->namespaces[ctxt->nsNr] != NULL)
+                ctxt->nsNr++;
+        }
     }
 }