INSTALL: broken link

[perl5.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index aabbcd3..1b0b5f7 100644 (file)
--- 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)
@@ -4062,6 +4063,7 @@ PP(pp_leaveeval)
     I32 optype;
     SV *namesv;
 
+    PERL_ASYNC_CHECK();
     POPBLOCK(cx,newpm);
     POPEVAL(cx);
     namesv = cx->blk_eval.old_namesv;
@@ -4183,6 +4185,7 @@ PP(pp_leavetry)
     register PERL_CONTEXT *cx;
     I32 optype;
 
+    PERL_ASYNC_CHECK();
     POPBLOCK(cx,newpm);
     POPEVAL(cx);
     PERL_UNUSED_VAR(optype);