This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Push a new stack in sv_recode_to_utf8
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 2c83597..1c22615 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -14072,6 +14072,7 @@ Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
        const char *s;
        dSP;
        ENTER;
+       PUSHSTACK;
        SAVETMPS;
        save_re_context();
        PUSHMARK(sp);
@@ -14100,6 +14101,7 @@ Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
            SvCUR_set(sv, len);
        }
        FREETMPS;
+       POPSTACK;
        LEAVE;
        if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
            /* clear pos and any utf8 cache */