X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=a27620a41d6ff2dae2fe38eae0338db5ef408ad8;hb=6537fe72dd6d63cc0c7164fec44beb82d2568599;hp=cd82fe2ff570994b8b4e43c1cbada44f6b36a516;hpb=a58d912c5262ef3032191d4aea207683577527bb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index cd82fe2..a27620a 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");