diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-09 17:45:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-09 20:07:14 +0000 |
| commit | f54cb97a39f1a5849851e77a33524dfca2644cf5 (patch) | |
| tree | 63ac7dcf435b959ee157bc3bd9c11eb775192034 /pp_sys.c | |
| parent | a0981a788197c6d427ceaf558d0dc8713c7737b3 (diff) | |
| download | perl-f54cb97a39f1a5849851e77a33524dfca2644cf5.tar.gz | |
attributes-two.patch, the next batch
Message-ID: <20050509154518.GA18273@petdance.com>
p4raw-id: //depot/perl@24431
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -321,7 +321,7 @@ PP(pp_backtick) PerlIO *fp; STRLEN n_a; char *tmps = POPpx; - I32 gimme = GIMME_V; + const I32 gimme = GIMME_V; const char *mode = "r"; TAINT_PROPER("``"); @@ -1210,7 +1210,7 @@ PP(pp_getc) if (gv && (io = GvIO(gv)) && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) { - I32 gimme = GIMME_V; + const I32 gimme = GIMME_V; PUSHMARK(SP); XPUSHs(SvTIED_obj((SV*)io, mg)); PUTBACK; @@ -1256,7 +1256,7 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) { dVAR; register PERL_CONTEXT *cx; - I32 gimme = GIMME_V; + const I32 gimme = GIMME_V; ENTER; SAVETMPS; @@ -1358,7 +1358,7 @@ PP(pp_leavewrite) } if (IoFLAGS(io) & IOf_DIDTOP) { /* Oh dear. It still doesn't fit. */ I32 lines = IoLINES_LEFT(io); - char *s = SvPVX(PL_formtarget); + const char *s = SvPVX(PL_formtarget); if (lines <= 0) /* Yow, header didn't even fit!!! */ goto forget_top; while (lines-- > 0) { @@ -1368,7 +1368,7 @@ PP(pp_leavewrite) s++; } if (s) { - STRLEN save = SvCUR(PL_formtarget); + const STRLEN save = SvCUR(PL_formtarget); SvCUR_set(PL_formtarget, s - SvPVX(PL_formtarget)); do_print(PL_formtarget, ofp); SvCUR_set(PL_formtarget, save); @@ -3928,7 +3928,7 @@ PP(pp_readdir) dSP; SV *sv; - I32 gimme = GIMME; + const I32 gimme = GIMME; GV *gv = (GV *)POPs; register Direntry_t *dp; register IO *io = GvIOn(gv); |