Change 31307 by [EMAIL PROTECTED] on 2007/05/29 15:48:27

        Plug a memory leak in Encode

Affected files ...

... //depot/perl/ext/Encode/Encode.xs#129 edit

Differences ...

==== //depot/perl/ext/Encode/Encode.xs#129 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs#128~31305~        2007-05-29 02:33:52.000000000 
-0700
+++ perl/ext/Encode/Encode.xs   2007-05-29 08:48:27.000000000 -0700
@@ -87,6 +87,7 @@
     LEAVE;
     retval = newSVpv("",0);
     sv_catsv(retval, temp);
+    SvREFCNT_dec(temp);
     return retval;
 }
 
End of Patch.

Reply via email to