[perl #78438] Memory leak with 'use v5.42'

diff --git a/pp_ctl.c b/pp_ctl.c
index 31c716e..a2c3b7e 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3462,9 +3462,10 @@ PP(pp_require)
 
                    DIE(aTHX_ "Perl %"SVf" required (did you mean %"SVf"?)"
                        "--this is only %"SVf", stopped",
-                       SVfARG(vnormal(req)),
-                       SVfARG(vnormal(sv_2mortal(hintsv))),
-                       SVfARG(vnormal(PL_patchlevel)));
+                       SVfARG(sv_2mortal(vnormal(req))),
+                       SVfARG(sv_2mortal(vnormal(sv_2mortal(hintsv)))),
+                       SVfARG(sv_2mortal(vnormal(PL_patchlevel)))
+                   );
                }
            }
        }