X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/011c381477c2b48fc4fbb6c52c59dbd6a21bc7d6..2702142091e79b769abcfd739e21ca6669be571f:/pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index a9072df..1b0b5f7 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3467,9 +3467,10 @@ S_doopen_pm(pTHX_ SV *name)
     PERL_ARGS_ASSERT_DOOPEN_PM;
 
     if (namelen > 3 && memEQs(p + namelen - 3, 3, ".pm")) {
-	SV *const pmcsv = sv_mortalcopy(name);
+	SV *const pmcsv = sv_newmortal();
 	Stat_t pmcstat;
 
+	SvSetSV_nosteal(pmcsv,name);
 	sv_catpvn(pmcsv, "c", 1);
 
 	if (PerlLIO_stat(SvPV_nolen_const(pmcsv), &pmcstat) >= 0)