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.
---
 pp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pp.c')

diff --git a/pp.c b/pp.c
index fbcae8c3b7..1fcc9d4f9f 100644
--- a/pp.c
+++ b/pp.c
@@ -904,11 +904,11 @@ PP(pp_undef)
                           "Constant subroutine %" SVf " undefined",
                            SVfARG(CvANON((const CV *)sv)
                              ? newSVpvs_flags("(anonymous)", SVs_TEMP)
-                             : sv_2mortal(newSVhek(
+                             : newSVhek_mortal(
                                 CvNAMED(sv)
                                  ? CvNAME_HEK((CV *)sv)
                                  : GvENAME_HEK(CvGV((const CV *)sv))
-                               ))
+                               )
                            ));
         /* FALLTHROUGH */
     case SVt_PVFM:
-- 
cgit v1.2.1