This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
"A" should no longer be in the list of options acceptable to PERL5OPT,
authorNicholas Clark <nick@ccl4.org>
Sat, 6 Oct 2007 22:22:20 +0000 (22:22 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 6 Oct 2007 22:22:20 +0000 (22:22 +0000)
now that assertions have been removed.

p4raw-id: //depot/perl@32056

perl.c

diff --git a/perl.c b/perl.c
index f48b1e4..158526a 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1983,7 +1983,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
                d = s;
                if (!*s)
                    break;
-               if (!strchr("CDIMUdmtwA", *s))
+               if (!strchr("CDIMUdmtw", *s))
                    Perl_croak(aTHX_ "Illegal switch in PERL5OPT: -%c", *s);
                while (++s && *s) {
                    if (isSPACE(*s)) {