In Perl_moreswitches(), merge the cases for 't' and 'T'.

Both bodies were the same, aside from hardcoded 't' and 'T', which can be
replaced with a variable.

1 files changed, 2 insertions, 6 deletions

diff --git a/perl.c b/perl.c
index bbfae80d79..27e80ac837 100644
--- a/perl.c
+++ b/perl.c
@@ -3293,14 +3293,10 @@ Perl_moreswitches(pTHX_ const char *s)
 	s++;
 	return s;
     case 't':
+    case 'T':
         if (!PL_tainting)
-	    TOO_LATE_FOR('t');
+	    TOO_LATE_FOR(*s);
         s++;
-        return s;
-    case 'T':
-	if (!PL_tainting)
-	    TOO_LATE_FOR('T');
-	s++;
 	return s;
     case 'u':
 	PL_do_undump = TRUE;