From 1c4db469cd1e8fb8078f63d9771e14df964cc680 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 17 Dec 2001 16:23:01 +0100
Subject: -t and the core tests; -t and PERL5OPT Message-ID:
 <20011217152301.A704@rafael>

p4raw-id: //depot/perl@13737
---
 perl.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index a27620a41d..d75b20dff7 100644
--- a/perl.c
+++ b/perl.c
@@ -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);
+		}
 	    }
 	}
     }
-- 
cgit v1.2.1