From 518db96ae536faa5656a7cdc6b3dc510b75edb79 Mon Sep 17 00:00:00 2001
From: Richard Leach <richardleach@users.noreply.github.com>
Date: Thu, 28 Jul 2022 22:35:24 +0000
Subject: Replace sv_2mortal(newSVhek( with newSVhek_mortal

The new Perl_newSVhek_mortal function is slightly more efficient.
---
 mro_core.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mro_core.c')

diff --git a/mro_core.c b/mro_core.c
index 042ed673e8..09fbc27ab4 100644
--- a/mro_core.c
+++ b/mro_core.c
@@ -812,7 +812,7 @@ Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash,
                 : newSVpvs_flags("",  SVs_TEMP);
         }
         else {
-            namesv = sv_2mortal(newSVhek(*namep));
+            namesv = newSVhek_mortal(*namep);
             if (GvNAMELEN(gv) == 1) sv_catpvs(namesv, ":");
             else                    sv_catpvs(namesv, "::");
         }
-- 
cgit v1.2.1