From 2b622f1ab95eef319d54ddc6bec007dfd5f831a8 Mon Sep 17 00:00:00 2001 From: Michael G Schwern Date: Sat, 25 Apr 2009 21:16:12 -0500 Subject: [PATCH] Allow PERL5OPT=-W --- perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 701b010484..130a83c6ec 100644 --- a/perl.c +++ b/perl.c @@ -1923,7 +1923,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) d = s; if (!*s) break; - if (!strchr("CDIMUdmtw", *s)) + if (!strchr("CDIMUdmtwW", *s)) Perl_croak(aTHX_ "Illegal switch in PERL5OPT: -%c", *s); while (++s && *s) { if (isSPACE(*s)) { -- cgit v1.2.1