Stop eval "use 6" from leaking

1 files changed, 4 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 76df2fd162..31c716e4f6 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3443,8 +3443,10 @@ PP(pp_require)
 		    || strstr(SvPVX(pv),".0")        /* FP with leading 0 */
 		   ) {
 		    DIE(aTHX_ "Perl %"SVf" required--this is only "
-		    	"%"SVf", stopped", SVfARG(vnormal(req)),
-			SVfARG(vnormal(PL_patchlevel)));
+		    	"%"SVf", stopped",
+			SVfARG(sv_2mortal(vnormal(req))),
+			SVfARG(sv_2mortal(vnormal(PL_patchlevel)))
+		    );
 		}
 		else { /* probably 'use 5.10' or 'use 5.8' */
 		    SV *hintsv;