gv.c:gv_fetchmethod_pvn_flags: Avoid unnecessary extra SV

1 files changed, 1 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index 0d383ff659..86d34b131b 100644
--- a/gv.c
+++ b/gv.c
@@ -1038,7 +1038,7 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
 		    packnamesv = newSVpvn_flags(origname, nsplit - origname,
                                                     SVs_TEMP | is_utf8);
 		} else {
-		    packnamesv = sv_2mortal(newSVsv(error_report));
+		    packnamesv = error_report;
 		}
 
 		Perl_croak(aTHX_