Change 13884 by jhi@alpha on 2001/12/25 16:20:19
Make -t equal -tw.
Affected files ...
.... //depot/perl/perl.c#402 edit
.... //depot/perl/pod/perlrun.pod#49 edit
Differences ...
==== //depot/perl/perl.c#402 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Tue Dec 25 09:30:05 2001
+++ perl/perl.c Tue Dec 25 09:30:05 2001
@@ -1099,8 +1099,10 @@
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++;
==== //depot/perl/pod/perlrun.pod#49 (text) ====
Index: perl/pod/perlrun.pod
--- perl/pod/perlrun.pod.~1~ Tue Dec 25 09:30:05 2001
+++ perl/pod/perlrun.pod Tue Dec 25 09:30:05 2001
@@ -700,11 +700,13 @@
=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>
End of Patch.
