Revert change 24070 for now (-C on the #! line)

p4raw-id: //depot/maint-5.8/perl@24635

2 files changed, 2 insertions, 2 deletions

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 3a5fff8627..fe637e3dce 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -3779,7 +3779,7 @@ system call to call, silly dilly.
 =item Too late for "-%s" option
 
 (X) The #! line (or local equivalent) in a Perl script contains the
-B<-M>, B<-m> or B<-C> option.  This is an error because those options
+B<-M> or B<-m> option.  This is an error because B<-M> and B<-m> options
 are not intended for use inside scripts.  Use the C<use> pragma instead.
 
 =item Too late to run %s block
diff --git a/toke.c b/toke.c
index cb6c8841be..b8ca6ec96f 100644
--- a/toke.c
+++ b/toke.c
@@ -2739,7 +2739,7 @@ Perl_yylex(pTHX)
 		    if (*d++ == '-') {
 			bool switches_done = PL_doswitches;
 			do {
-			    if (*d == 'M' || *d == 'm' || *d == 'C') {
+			    if (*d == 'M' || *d == 'm') {
 				char *m = d;
 				while (*d && !isSPACE(*d)) d++;
 				Perl_croak(aTHX_ "Too late for \"-%.*s\" option",