[perl-xml-cvs] CVS: XML-LibXML-XPathContext XPathContext.xs,1.35,1.36

[Ilya M. <m_...@us...>]

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

Modified Files:
	XPathContext.xs 
Log Message:
Fix compilation errors:

PPCODE must be last thing in XPathContext.xs, line 579

and

XPathContext.xs: In function `XS_XML__LibXML__XPathContext_lookupNs':
XPathContext.xs:578: too few arguments to function `xpc_C2Sv'


Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- XPathContext.xs	29 May 2003 14:28:29 -0000	1.35
+++ XPathContext.xs	21 Sep 2003 10:05:05 -0000	1.36
@@ -514,7 +514,7 @@
         } else {
             RETVAL = &PL_sv_undef;
         }
-OUTPUT:
+    OUTPUT:
         RETVAL
 
 void 
@@ -574,8 +574,8 @@
             croak("XPathContext: missing xpath context");
         }
         xpc_LibXML_configure_xpathcontext(ctxt);
-    PPCODE: 
-        RETVAL = xpc_C2Sv(xmlXPathNsLookup(ctxt, SvPV_nolen(prefix)));
+    CODE:
+        RETVAL = xpc_C2Sv(xmlXPathNsLookup(ctxt, SvPV_nolen(prefix)), NULL);
     OUTPUT:
         RETVAL
 
@@ -603,11 +603,8 @@
         } else {
             RETVAL = &PL_sv_undef;
         }
-
     OUTPUT:
         RETVAL
-
-
 
 void
 registerVarLookupFunc( pxpath_context, lookup_func, lookup_data )