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 /perl.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 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2100,7 +2100,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) } } - PL_main_cv = PL_compcv = (CV*)newSV_type(SVt_PVCV); + PL_main_cv = PL_compcv = MUTABLE_CV(newSV_type(SVt_PVCV)); CvUNIQUE_on(PL_compcv); CvPADLIST(PL_compcv) = pad_new(0); @@ -2649,7 +2649,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags) && (PL_DBcv || (PL_DBcv = GvCV(PL_DBsub))) /* Try harder, since this may have been a sighandler, thus * curstash may be meaningless. */ - && (SvTYPE(sv) != SVt_PVCV || CvSTASH((CV*)sv) != PL_debstash) + && (SvTYPE(sv) != SVt_PVCV || CvSTASH((const CV *)sv) != PL_debstash) && !(flags & G_NODEBUG)) PL_op->op_private |= OPpENTERSUB_DB; @@ -5114,7 +5114,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList) PERL_ARGS_ASSERT_CALL_LIST; while (av_len(paramList) >= 0) { - cv = (CV*)av_shift(paramList); + cv = MUTABLE_CV(av_shift(paramList)); if (PL_savebegin) { if (paramList == PL_beginav) { /* save PL_beginav for compiler */ |