From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 29 Nov 2006 19:06:09 +0000 (-0500)
Subject: No code specified for -.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47f5682248e332efa01df2dd2d3fe2f6bd0ffc35;p=p5sagit%2Fp5-mst-13.2.git

No code specified for -.
Message-ID: <456E2071.3010404@iki.fi>

p4raw-id: //depot/perl@29422
---

diff --git a/perl.c b/perl.c
index 9cb183d..0f242d7 100644
--- a/perl.c
+++ b/perl.c
@@ -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;