Revert "Fix memory leak in Encode.xs" maint-5.10
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 7 Mar 2013 22:51:37 +0000 (22:51 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 7 Mar 2013 22:51:37 +0000 (22:51 +0000)
Because it breaks Win32

This reverts commit 27a6588a70ffa9e9000ca20f266a92f93cbf1a78.

ext/Encode/Encode.xs

index 9f9dc9c..1424071 100644 (file)
@@ -410,6 +410,7 @@ CODE:
     STRLEN slen;
     U8 *s = (U8 *) SvPV(src, slen);
     U8 *e = (U8 *) SvEND(src);
+    SV *dst = newSV(slen>0?slen:1); /* newSV() abhors 0 -- inaba */
 
     /* 
      * PerlIO check -- we assume the object is of PerlIO if renewed
@@ -442,7 +443,6 @@ CODE:
     }
     }
 
-    SV *dst = sv_2mortal(newSV(slen>0?slen:1));
     s = process_utf8(aTHX_ dst, s, e, check, 0, strict_utf8(aTHX_ obj), renewed);
 
     /* Clear out translated part of source unless asked not to */
@@ -454,7 +454,7 @@ CODE:
     SvCUR_set(src, slen);
     }
     SvUTF8_on(dst);
-    ST(0) = dst;
+    ST(0) = sv_2mortal(dst);
     XSRETURN(1);
 }
 
@@ -468,7 +468,7 @@ CODE:
     STRLEN slen;
     U8 *s = (U8 *) SvPV(src, slen);
     U8 *e = (U8 *) SvEND(src);
-    SV *dst = sv_2mortal(newSV(slen>0?slen:1));
+    SV *dst = newSV(slen>0?slen:1); /* newSV() abhors 0 -- inaba */
     if (SvUTF8(src)) {
     /* Already encoded */
     if (strict_utf8(aTHX_ obj)) {
@@ -507,7 +507,7 @@ CODE:
     }
     SvPOK_only(dst);
     SvUTF8_off(dst);
-    ST(0) = dst;
+    ST(0) = sv_2mortal(dst);
     XSRETURN(1);
 }