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,
[perl5.git] / 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)) {