perl-xml-commits

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

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

Modified Files:
	XPathContext.xs XPathContext.pm 
Log Message:
Rename _leave() to _free_node_pool() for clarity


Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- XPathContext.xs	10 Nov 2003 10:07:36 -0000	1.40
+++ XPathContext.xs	10 Nov 2003 10:09:12 -0000	1.41
@@ -862,7 +862,7 @@
         }
 
 void
-_leave( pxpath_context )
+_free_node_pool( pxpath_context )
         SV * pxpath_context
     PREINIT:
         xmlXPathContextPtr ctxt = NULL;

Index: XPathContext.pm
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- XPathContext.pm	3 Nov 2003 18:09:38 -0000	1.31
+++ XPathContext.pm	10 Nov 2003 10:09:12 -0000	1.32
@@ -55,12 +55,11 @@
         $prev_node = $self->getContextNode();
         $self->setContextNode($node);
     }
-#    $self->_enter; # lock
     my @ret;
     eval {
         @ret = $self->$method($xpath);
     };
-    $self->_leave; # unlock and free node-pool
+    $self->_free_node_pool;
     $self->setContextNode($prev_node) if ref($node);
 
     if ($@) { die "ERROR: $@"; }