perl-xml-commits

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

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

Modified Files:
	XPathContext.pm XPathContext.xs 
Log Message:
Rename perl_dispatcher() to _perl_dispatcher() as this sub is not a part
of public API


Index: XPathContext.pm
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- XPathContext.pm	4 Apr 2003 09:06:31 -0000	1.19
+++ XPathContext.pm	4 Apr 2003 09:08:46 -0000	1.20
@@ -91,7 +91,7 @@
 # extension function perl dispatcher
 # borrowed from XML::LibXSLT
 
-sub perl_dispatcher {
+sub _perl_dispatcher {
     my $func = shift;
     my @params = @_;
     my @perlParams;

Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- XPathContext.xs	2 Apr 2003 14:15:05 -0000	1.28
+++ XPathContext.xs	4 Apr 2003 09:08:47 -0000	1.29
@@ -374,7 +374,7 @@
     /* call perl dispatcher */
     PUTBACK;
 
-    perl_dispatch = sv_2mortal(newSVpv("XML::LibXML::XPathContext::perl_dispatcher",0));
+    perl_dispatch = sv_2mortal(newSVpv("XML::LibXML::XPathContext::_perl_dispatcher",0));
     count = perl_call_sv(perl_dispatch, G_SCALAR|G_EVAL);
     
     SPAGAIN;