Replace sv_2mortal(newSVhek( with newSVhek_mortal

The new Perl_newSVhek_mortal function is slightly more efficient.

1 files changed, 2 insertions, 2 deletions

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: