From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 25 Dec 2001 16:20:19 +0000 (+0000)
Subject: Make -t equal -tw.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1dbad523dc291b9627b38bb8a90cb8baa1d2b369;p=p5sagit%2Fp5-mst-13.2.git

Make -t equal -tw.

p4raw-id: //depot/perl@13884
---

diff --git a/perl.c b/perl.c
index d75b20d..50e7aa1 100644
--- a/perl.c
+++ b/perl.c
@@ -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++;
diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index 2b7cca1..137ecd3 100644
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -700,11 +700,13 @@ program will be searched for strictly on the PATH.
 =item B<-t>
 
 Like B<-T>, but taint checks will issue warnings rather than fatal
-errors.  Since these are warnings, the B<-w> switch (or C<use
-warnings>) must be used along with this option.  B<NOTE: this is
-not a substitute for -T.> This is meant only to be used as a temporary
-aid while securing legacy code: for real production code and for new
-secure code written from scratch always use the real B<-T>.
+errors.  Also, all warnings are turned on as if you had used also
+a B<-w>.
+
+B<NOTE: this is not a substitute for -T.> This is meant only to be
+used as a temporary development aid while securing legacy code:
+for real production code and for new secure code written from scratch
+always use the real B<-T>.
 
 =item B<-T>