From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 29 May 2007 15:48:27 +0000 (+0000)
Subject: Plug a memory leak in Encode
X-Git-Tag: accepted/trunk/20130322.191538~15166
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6ead8143a52fa6f941a4e41a7802d43ef4363b70;p=platform%2Fupstream%2Fperl.git

Plug a memory leak in Encode

p4raw-id: //depot/perl@31307
---

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index c86ce82..265aec0 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -87,6 +87,7 @@ do_fallback_cb(pTHX_ UV ch)
     LEAVE;
     retval = newSVpv("",0);
     sv_catsv(retval, temp);
+    SvREFCNT_dec(temp);
     return retval;
 }