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

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

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

Modified Files:
	XPathContext.xs 
Log Message:
minor compile fix


Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- XPathContext.xs	16 Mar 2003 18:26:13 -0000	1.7
+++ XPathContext.xs	17 Mar 2003 12:27:22 -0000	1.8
@@ -338,8 +338,8 @@
     if (SvROK(perl_result) &&
         SvTYPE(SvRV(perl_result)) == SVt_PVAV) {
         /* consider any array ref to be a nodelist */
-        i = 0;
         SV * pnode;
+        i = 0;
 
         /* warn("result is a node list\n");  */
         ret = (xmlXPathObjectPtr) xmlXPathNewNodeSet((xmlNodePtr) NULL);