X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=130a83c6ec16edb2a7c0098d51d596eb5cd99de3;hb=f21000970ab9d31d61aef8d0ffdfbc9fdad80291;hp=32c0a48562275cbaec605a6b2f51d530e0e59104;hpb=ad3a6de0a2e8f154a56e5da4ace8c4f2cc900511;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 32c0a48..130a83c 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)) {
@@ -2028,7 +2028,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 
     boot_core_PerlIO();
     boot_core_UNIVERSAL();
-    boot_core_xsutils();
     boot_core_mro();
 
     if (xsinit)