Change 29422 by [EMAIL PROTECTED] on 2006/11/30 04:24:10
Subject: [PATCH] No code specified for -.
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Date: Wed, 29 Nov 2006 19:06:09 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/perl.c#770 edit
Differences ...
==== //depot/perl/perl.c#770 (text) ====
Index: perl/perl.c
--- perl/perl.c#769~29177~ 2006-10-31 14:36:40.000000000 -0800
+++ perl/perl.c 2006-11-29 20:24:10.000000000 -0800
@@ -1654,7 +1654,7 @@
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 @@
#endif
s = argv[0]+1;
reswitch:
- switch (*s) {
+ switch ((c = *s)) {
case 'C':
#ifndef PERL_STRICT_CR
case '\r':
@@ -1749,7 +1749,7 @@
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;
End of Patch.
