[perl-xml-cvs] CVS: XML-LibXML-Common Common.xs,1.6,1.7

[Christian G. <phi...@us...>]

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

Modified Files:
	Common.xs 
Log Message:

Modified Files:
Common.xs 
    [fix] reported memory leak in decodeFromUTF8()


Index: Common.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-Common/Common.xs,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Common.xs	15 Mar 2003 20:55:32 -0000	1.6
+++ Common.xs	30 May 2003 18:39:22 -0000	1.7
@@ -210,6 +210,7 @@
                 }
 
                 RETVAL = newSVpvn( (const char *)tstr, len );
+                xmlFree( tstr );
 #ifdef HAVE_UTF8
                 if ( enc == XML_CHAR_ENCODING_UTF8 ) {
                     SvUTF8_on(RETVAL);