diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-25 16:20:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-25 16:20:19 +0000 |
| commit | 1dbad523dc291b9627b38bb8a90cb8baa1d2b369 (patch) | |
| tree | 30e8c90f63e0f23a8e3e8d6a62af60f803f08893 /perl.c | |
| parent | 7c9e965c652c539b7064f0b192c92dbee8a21bcc (diff) | |
| download | perl-1dbad523dc291b9627b38bb8a90cb8baa1d2b369.tar.gz | |
Make -t equal -tw.
p4raw-id: //depot/perl@13884
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1099,8 +1099,10 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) goto reswitch; break; - case 't': - PL_taint_warn = TRUE; + case 't': + PL_taint_warn = TRUE; + if (! (PL_dowarn & G_WARN_ALL_MASK)) + PL_dowarn |= G_WARN_ON; case 'T': PL_tainting = TRUE; s++; |