diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-21 18:35:55 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-24 16:25:58 +0000 |
| commit | e1ec3a884f8d8c64eb7e391b2a363f47cbeed570 (patch) | |
| tree | 13e83e61449ed542f309f1cd88e7ed42778ca543 /pp.c | |
| parent | 2bbb3949e88673e7f0574ab70254a46d776242e9 (diff) | |
| download | perl-e1ec3a884f8d8c64eb7e391b2a363f47cbeed570.tar.gz | |
Third consting batch
Message-Id: <2f14220e7101a03f7659dbe79a03b115@petdance.com>
p4raw-id: //depot/perl@24074
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -159,7 +159,7 @@ PP(pp_rv2gv) if (SvREADONLY(sv)) Perl_croak(aTHX_ PL_no_modify); if (PL_op->op_private & OPpDEREF) { - char *name; + const char *name; GV *gv; if (cUNOP->op_targ) { STRLEN len; @@ -502,7 +502,7 @@ PP(pp_ref) { dSP; dTARGET; SV *sv; - char *pv; + const char *pv; sv = POPs; @@ -528,7 +528,7 @@ PP(pp_bless) else { SV *ssv = POPs; STRLEN len; - char *ptr; + const char *ptr; if (ssv && !SvGMAGICAL(ssv) && !SvAMAGIC(ssv) && SvROK(ssv)) Perl_croak(aTHX_ "Attempt to bless into a reference"); @@ -548,7 +548,7 @@ PP(pp_gelem) GV *gv; SV *sv; SV *tmpRef; - char *elem; + const char *elem; dSP; STRLEN n_a; @@ -597,7 +597,7 @@ PP(pp_gelem) break; case 'P': if (strEQ(elem2, "ACKAGE")) { - char *name = HvNAME(GvSTASH(gv)); + const char *name = HvNAME(GvSTASH(gv)); sv = newSVpv(name ? name : "__ANON__", 0); } break; @@ -2995,11 +2995,11 @@ PP(pp_substr) I32 pos; I32 rem; I32 fail; - I32 lvalue = PL_op->op_flags & OPf_MOD || LVRET; - char *tmps; - I32 arybase = PL_curcop->cop_arybase; + const I32 lvalue = PL_op->op_flags & OPf_MOD || LVRET; + const char *tmps; + const I32 arybase = PL_curcop->cop_arybase; SV *repl_sv = NULL; - char *repl = 0; + const char *repl = 0; STRLEN repl_len; int num_args = PL_op->op_private & 7; bool repl_need_utf8_upgrade = FALSE; |