diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-29 21:57:34 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-29 21:57:34 +0000 |
| commit | ea726b52599b52cf534201a46ec3455418c9eb8e (patch) | |
| tree | 4206fe1b3aea75154b82cac19301cc56345b63a4 /mg.c | |
| parent | 126f53f392147cb95f8643714b33fe373747680a (diff) | |
| download | perl-ea726b52599b52cf534201a46ec3455418c9eb8e.tar.gz | |
Add MUTABLE_CV(), and eliminate (CV *) casts in *.c.
p4raw-id: //depot/perl@34647
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2916,7 +2916,7 @@ Perl_sighandler(int sig) if (flags & 16) PL_scopestack_ix += 1; /* sv_2cv is too complicated, try a simpler variant first: */ - if (!SvROK(PL_psig_ptr[sig]) || !(cv = (CV*)SvRV(PL_psig_ptr[sig])) + if (!SvROK(PL_psig_ptr[sig]) || !(cv = MUTABLE_CV(SvRV(PL_psig_ptr[sig]))) || SvTYPE(cv) != SVt_PVCV) { HV *st; cv = sv_2cv(PL_psig_ptr[sig], &st, &gv, GV_ADD); |