diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-18 19:28:30 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-21 09:39:35 +0000 |
| commit | bfed75c6338f0ba740aa210f4b0267e39ca4662b (patch) | |
| tree | ceaa91a3d877b0eaf3000f01f413f942619a2d9f /perl.c | |
| parent | a87115f0a1b74f765307464de281024d76c71ad6 (diff) | |
| download | perl-bfed75c6338f0ba740aa210f4b0267e39ca4662b.tar.gz | |
More consting goodness
Message-ID: <20050319072830.GA7721@petdance.com>
p4raw-id: //depot/perl@24049
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2352,7 +2352,7 @@ S_usage(pTHX_ char *name) /* XXX move this out into a module ? */ /* This message really ought to be max 23 lines. * Removed -h because the user already knows that option. Others? */ - static char *usage_msg[] = { + static const char *usage_msg[] = { "-0[octal] specify record separator (\\0, if no argument)", "-a autosplit mode with -n or -p (splits $_ into @F)", "-C[number/list] enables the listed Unicode features", @@ -2400,7 +2400,7 @@ NULL int Perl_get_debug_opts(pTHX_ char **s, bool givehelp) { - static char *usage_msgd[] = { + static const char *usage_msgd[] = { " Debugging flag values: (see also -d)", " p Tokenizing and parsing (with v, displays parse stack)", " s Stack snapshots (with v, displays all stacks)", @@ -2430,7 +2430,7 @@ Perl_get_debug_opts(pTHX_ char **s, bool givehelp) int i = 0; if (isALPHA(**s)) { /* if adding extra options, remember to update DEBUG_MASK */ - static char debopts[] = "psltocPmfrxu HXDSTRJvCAq"; + static const char debopts[] = "psltocPmfrxu HXDSTRJvCAq"; for (; isALNUM(**s); (*s)++) { char *d = strchr(debopts,**s); |