projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Some more missing isGV_with_GP()s
[p5sagit/p5-mst-13.2.git]
/
mg.c
diff --git
a/mg.c
b/mg.c
index
6012d32
..
30ac035
100644
(file)
--- a/
mg.c
+++ b/
mg.c
@@
-1497,7
+1497,7
@@
Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
PL_psig_name[i] = newSVpvn(s, len);
SvREADONLY_on(PL_psig_name[i]);
}
- if (SvTYPE(sv) == SVt_PVGV || SvROK(sv)) {
+ if (isGV_with_GP(sv) || SvROK(sv)) {
if (i) {
(void)rsignal(i, PL_csighandlerp);
#ifdef HAS_SIGPROCMASK