From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 6 Oct 2005 08:42:56 +0000 (+0000)
Subject: Add -C to allowed $PERL5OPT options
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4af53b035442614d6967aeb0941ba0a0e6238a0;p=p5sagit%2Fp5-mst-13.2.git

Add -C to allowed $PERL5OPT options
Add -C to the $PERL5OPT documentation (and added the missing -A too)
t/run/runenv.t Could use some more tests about how supported
and unsupported options in $PERL5OPT are handled

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

diff --git a/perl.c b/perl.c
index 7f663b1..799cdf8 100644
--- a/perl.c
+++ b/perl.c
@@ -1934,7 +1934,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 		d = s;
 		if (!*s)
 		    break;
-		if (!strchr("DIMUdmtwA", *s))
+		if (!strchr("CDIMUdmtwA", *s))
 		    Perl_croak(aTHX_ "Illegal switch in PERL5OPT: -%c", *s);
 		while (++s && *s) {
 		    if (isSPACE(*s)) {
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 729d149..817503b 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1866,7 +1866,7 @@ Interpretation of the octal number stopped before the 8 or 9.
 =item Illegal switch in PERL5OPT: %s
 
 (X) The PERL5OPT environment variable may only be used to set the
-following switches: B<-[DIMUdmtw]>.
+following switches: B<-[CDIMUdmtwA]>.
 
 =item Ill-formed CRTL environ value "%s"
 
diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index dbf008d..36e331d 100644
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -985,7 +985,7 @@ The program should instead say:
 =item PERL5OPT
 
 Command-line options (switches).  Switches in this variable are taken
-as if they were on every Perl command line.  Only the B<-[DIMUdmtw]>
+as if they were on every Perl command line.  Only the B<-[CDIMUdmtwA]>
 switches are allowed.  When running taint checks (because the program
 was running setuid or setgid, or the B<-T> switch was used), this
 variable is ignored.  If PERL5OPT begins with B<-T>, tainting will be