-t taint warnings

Message-ID: <20011214002707.GA10532@blackrider>

(reword the perlrun -t description a bit,
 and move the Itaint_warn to the bottom of
 the intrpvar.h for binary compatibility)

p4raw-id: //depot/perl@13684

1 files changed, 7 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index cd82fe2ff5..a27620a41d 100644
--- a/perl.c
+++ b/perl.c
@@ -1099,6 +1099,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 		goto reswitch;
 	    break;
 
+    case 't':
+        PL_taint_warn = TRUE;
 	case 'T':
 	    PL_tainting = TRUE;
 	    s++;
@@ -2373,6 +2375,11 @@ Perl_moreswitches(pTHX_ char *s)
 	PL_doswitches = TRUE;
 	s++;
 	return s;
+    case 't':
+        if (!PL_tainting)
+            Perl_croak(aTHX_ "Too late for \"-t\" option");
+        s++;
+        return s;
     case 'T':
 	if (!PL_tainting)
 	    Perl_croak(aTHX_ "Too late for \"-T\" option");