From 4ea8f8fb25afd51f8653b84174abb95c1382d5ec Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Sat, 17 Feb 2001 20:11:35 -0500 Subject: Fixing PERL5OPT (was Re: Warnings, strict, and CPAN) Message-ID: <20010218011135.A19957@magnonel.guild.net> Revive mjd's and Simon's PERL5OPT fix. p4raw-id: //depot/perl@8822 --- perl.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 8d8dc1fe20..7dc4902502 100644 --- a/perl.c +++ b/perl.c @@ -1173,6 +1173,7 @@ print \" \\@INC:\\n @INC\\n\";"); PL_tainting = TRUE; else { while (s && *s) { + char *d; while (isSPACE(*s)) s++; if (*s == '-') { @@ -1180,11 +1181,18 @@ print \" \\@INC:\\n @INC\\n\";"); if (isSPACE(*s)) continue; } + d = s; if (!*s) break; if (!strchr("DIMUdmw", *s)) Perl_croak(aTHX_ "Illegal switch in PERL5OPT: -%c", *s); - s = moreswitches(s); + while (++s && *s) { + if (isSPACE(*s)) { + *s++ = '\0'; + break; + } + } + moreswitches(d); } } } -- cgit v1.2.1