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 /taint.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 'taint.c')
| -rw-r--r-- | taint.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -24,7 +24,7 @@ void Perl_taint_proper(pTHX_ const char *f, const char *s) { - char *ug; + const char *ug; #if defined(HAS_SETEUID) && defined(DEBUGGING) # if Uid_t_size == 1 @@ -74,8 +74,8 @@ Perl_taint_env(pTHX) { SV** svp; MAGIC* mg; - char** e; - static char* misc_env[] = { + const char** e; + static const char* misc_env[] = { "IFS", /* most shells' inter-field separators */ "CDPATH", /* ksh dain bramage #1 */ "ENV", /* ksh dain bramage #2 */ @@ -90,7 +90,7 @@ Perl_taint_env(pTHX) * it probably doesn't reflect the actual environment */ if (!GvHV(PL_envgv) || !(SvRMAGICAL(GvHV(PL_envgv)) && mg_find((SV*)GvHV(PL_envgv), PERL_MAGIC_env))) { - bool was_tainted = PL_tainted; + const bool was_tainted = PL_tainted; char *name = GvENAME(PL_envgv); PL_tainted = TRUE; if (strEQ(name,"ENV")) |