diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-02-17 20:11:35 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-18 16:58:58 +0000 |
| commit | 4ea8f8fb25afd51f8653b84174abb95c1382d5ec (patch) | |
| tree | 7bc9064592081e3fba6c0166271715a40a6f2bb2 /perl.c | |
| parent | 5d9a640495c9fba008f523d6f54b66106ead4d0f (diff) | |
| download | perl-4ea8f8fb25afd51f8653b84174abb95c1382d5ec.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -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); } } } |