diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-25 08:43:31 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-25 21:02:04 +0000 |
| commit | 73d840c0daa603a18a29260159881d4ef6772d73 (patch) | |
| tree | b5e129b2bb73cff2818caf0fa6c7f60ce32a2635 /taint.c | |
| parent | cacf81f42beab47944769821db143b4be96edd5d (diff) | |
| download | perl-73d840c0daa603a18a29260159881d4ef6772d73.tar.gz | |
Consting part 4
Message-ID: <20050325204331.GA16388@petdance.com>
p4raw-id: //depot/perl@24079
Diffstat (limited to 'taint.c')
| -rw-r--r-- | taint.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -91,7 +91,7 @@ Perl_taint_env(pTHX) if (!GvHV(PL_envgv) || !(SvRMAGICAL(GvHV(PL_envgv)) && mg_find((SV*)GvHV(PL_envgv), PERL_MAGIC_env))) { const bool was_tainted = PL_tainted; - char *name = GvENAME(PL_envgv); + const char *name = GvENAME(PL_envgv); PL_tainted = TRUE; if (strEQ(name,"ENV")) /* hash alias */ @@ -144,7 +144,7 @@ Perl_taint_env(pTHX) svp = hv_fetch(GvHVn(PL_envgv),"TERM",4,FALSE); if (svp && *svp && SvTAINTED(*svp)) { STRLEN n_a; - bool was_tainted = PL_tainted; + const bool was_tainted = PL_tainted; char *t = SvPV(*svp, n_a); char *e = t + n_a; PL_tainted = was_tainted; |