[perl-xml-cvs] CVS: XML-LibXML-XPathContext perl-libxml-mm.c,1.4,1.5

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

Update of /cvsroot/perl-xml/XML-LibXML-XPathContext
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11030

Modified Files:
	perl-libxml-mm.c 
Log Message:
replaced malloc with Newc in accord with the same change
in XML::LibXML 1.58 (reported and patch provided by Steve Hay).


Index: perl-libxml-mm.c
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/perl-libxml-mm.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- perl-libxml-mm.c	7 Nov 2003 15:19:23 -0000	1.4
+++ perl-libxml-mm.c	3 Apr 2004 20:54:35 -0000	1.5
@@ -146,8 +146,8 @@
     }
 
     if ( node->_private == NULL ) {
-        proxy = (xpc_ProxyNodePtr)malloc(sizeof(struct _xpc_ProxyNode)); 
-        /* proxy = (xpc_ProxyNodePtr)Newz(0, proxy, 0, xpc_ProxyNode);  */
+        /* proxy = (xpc_ProxyNodePtr)malloc(sizeof(struct _xpc_ProxyNode)); */
+        Newc(0, proxy, 1, xpc_ProxyNode, xpc_ProxyNode);
         if (proxy != NULL) {
             proxy->node  = node;
             proxy->owner   = NULL;
@@ -271,8 +271,8 @@
                 
                 xpc_PmmFreeNode( libnode );
             }
-            /* Safefree( node ); */
-            free( node );
+            Safefree( node );
+            /* free( node ); */
         }
     }
     else {