[perl-xml-cvs] CVS: XML-LibXML-Common Common.xs,1.1.1.1,1.2

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

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

Modified Files:
	Common.xs 
Log Message:

Modified Files:
Common.xs 
    + free unused strings

Makefile.PL 
    ?


Index: Common.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-Common/Common.xs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Common.xs	2 Sep 2002 09:15:16 -0000	1.1.1.1
+++ Common.xs	14 Oct 2002 20:12:37 -0000	1.2
@@ -108,7 +108,7 @@
                 }
             }
 
-            if ( !tstr ) {
+            if ( !tstr ) {b
                 croak( "return value missing!" );
             }
 
@@ -117,6 +117,7 @@
 #ifdef HAVE_UTF8
             SvUTF8_on(RETVAL);
 #endif  
+            xmlFree(tstr);
         }
         else {
             XSRETURN_UNDEF;