X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=0722f443d649142aa0274ef7a060df7b39d5d428;hb=4df4e287246babaf287cf6336ca862ceeead8e46;hp=0857395bd1b3b6be6b40cdb1de344f88bbd57636;hpb=f776e3cd68509957cc5ab2967a78fb0ad213d8aa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index 0857395..0722f44 100644
--- a/mg.c
+++ b/mg.c
@@ -2664,7 +2664,7 @@ Perl_sighandler(int sig)
     if (!SvROK(PL_psig_ptr[sig]) || !(cv = (CV*)SvRV(PL_psig_ptr[sig]))
 	|| SvTYPE(cv) != SVt_PVCV) {
 	HV *st;
-	cv = sv_2cv(PL_psig_ptr[sig],&st,&gv,TRUE);
+	cv = sv_2cv(PL_psig_ptr[sig], &st, &gv, GV_ADD);
     }
 
     if (!cv || !CvROOT(cv)) {