diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2008-06-28 18:00:17 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-28 21:06:57 +0000 |
| commit | 6e592b3a92f7ee35c9a857bd9a43297ab1693599 (patch) | |
| tree | 262d198509e9c5efd2b2af3fcebb6daa6456c827 /mg.c | |
| parent | 087986a76c08e8dfaaee54f8f476bfa315216671 (diff) | |
| download | perl-6e592b3a92f7ee35c9a857bd9a43297ab1693599.tar.gz | |
Some more missing isGV_with_GP()s
Message-ID: <20080628160017.GA81579@osiris.mauzo.dyndns.org>
p4raw-id: //depot/perl@34092
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |