Don’t leak the source for evalbytes($utf8)

diff --git a/pp_ctl.c b/pp_ctl.c
index abd93ea..8a80792 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -4157,6 +4157,7 @@ PP(pp_entereval)
        /* Don’t modify someone else’s scalar */
        STRLEN len;
        sv = newSVsv(sv);
+       (void)sv_2mortal(sv);
        SvPVbyte_force(sv,len);
        lex_flags |= LEX_START_COPIED;
     }