diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-11-29 14:06:09 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-11-30 04:24:10 +0000 |
| commit | 47f5682248e332efa01df2dd2d3fe2f6bd0ffc35 (patch) | |
| tree | d90d1d45dd6476bf7272becf0acf86e456b16d49 /perl.c | |
| parent | be34b10d8abfd242c64e56c9cd82e1742b8e53b6 (diff) | |
| download | perl-47f5682248e332efa01df2dd2d3fe2f6bd0ffc35.tar.gz | |
No code specified for -.
Message-ID: <456E2071.3010404@iki.fi>
p4raw-id: //depot/perl@29422
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1654,7 +1654,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) VOL bool dosearch = FALSE; const char *validarg = ""; register SV *sv; - register char *s; + register char *s, c; const char *cddir = NULL; #ifdef USE_SITECUSTOMIZE bool minus_f = FALSE; @@ -1682,7 +1682,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #endif s = argv[0]+1; reswitch: - switch (*s) { + switch ((c = *s)) { case 'C': #ifndef PERL_STRICT_CR case '\r': @@ -1749,7 +1749,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) argc--,argv++; } else - Perl_croak(aTHX_ "No code specified for -%c", *s); + Perl_croak(aTHX_ "No code specified for -%c", c); sv_catpvs(PL_e_script, "\n"); break; |