diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-12-17 16:23:01 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-17 18:38:33 +0000 |
| commit | 1c4db469cd1e8fb8078f63d9771e14df964cc680 (patch) | |
| tree | 77ffc105327ed21c5767507956765036a630f6d1 /perl.c | |
| parent | 1689481e5512794ca867be78f00013097fdd63c0 (diff) | |
| download | perl-1c4db469cd1e8fb8078f63d9771e14df964cc680.tar.gz | |
-t and the core tests; -t and PERL5OPT
Message-ID: <20011217152301.A704@rafael>
p4raw-id: //depot/perl@13737
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -1297,7 +1297,7 @@ print \" \\@INC:\\n @INC\\n\";"); d = s; if (!*s) break; - if (!strchr("DIMUdmw", *s)) + if (!strchr("DIMUdmtw", *s)) Perl_croak(aTHX_ "Illegal switch in PERL5OPT: -%c", *s); while (++s && *s) { if (isSPACE(*s)) { @@ -1310,7 +1310,12 @@ print \" \\@INC:\\n @INC\\n\";"); break; } } - moreswitches(d); + if (*d == 't') { + PL_tainting = TRUE; + PL_taint_warn = TRUE; + } else { + moreswitches(d); + } } } } |