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 (file)
--- 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;
 }