diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-13 08:20:05 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-14 14:35:33 +0000 |
| commit | 35a4481cfdbca4941ab3a4206dc266f3e71c2385 (patch) | |
| tree | c23e069f4598fa792835ff005405575a8e7605a5 /pp_ctl.c | |
| parent | 38366c114d966e1bfc88beb6923273d54aa6e78d (diff) | |
| download | perl-35a4481cfdbca4941ab3a4206dc266f3e71c2385.tar.gz | |
Adding const qualifiers
Message-ID: <20050313202005.GA23535@petdance.com>
p4raw-id: //depot/perl@24037
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1392,13 +1392,12 @@ Perl_qerror(pTHX_ SV *err) } OP * -Perl_die_where(pTHX_ char *message, STRLEN msglen) +Perl_die_where(pTHX_ const char *message, STRLEN msglen) { STRLEN n_a; if (PL_in_eval) { I32 cxix; - register PERL_CONTEXT *cx; I32 gimme; SV **newsp; @@ -1439,6 +1438,7 @@ Perl_die_where(pTHX_ char *message, STRLEN msglen) if (cxix >= 0) { I32 optype; + register PERL_CONTEXT *cx; if (cxix < cxstack_ix) dounwind(cxix); @@ -1466,9 +1466,9 @@ Perl_die_where(pTHX_ char *message, STRLEN msglen) PL_curcop = cx->blk_oldcop; if (optype == OP_REQUIRE) { - char* msg = SvPVx(ERRSV, n_a); - SV *nsv = cx->blk_eval.old_namesv; - (void)hv_store(GvHVn(PL_incgv), SvPVX(nsv), SvCUR(nsv), + const char* msg = SvPVx(ERRSV, n_a); + SV *nsv = cx->blk_eval.old_namesv; + (void)hv_store(GvHVn(PL_incgv), SvPVX(nsv), SvCUR(nsv), &PL_sv_undef, 0); DIE(aTHX_ "%sCompilation failed in require", *msg ? msg : "Unknown error\n"); |