From: Abhijit Menon-Sen <ams@wiw.org>
Date: Tue, 9 Oct 2001 02:11:59 +0000 (+0000)
Subject: #12370 forgot to modify is_gv_magical().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb27b65e7b1f9fcfa2a45bbae31ea1c1de3e4522;p=p5sagit%2Fp5-mst-13.2.git

#12370 forgot to modify is_gv_magical().

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

diff --git a/gv.c b/gv.c
index e3cb25a..da50eac 100644
--- a/gv.c
+++ b/gv.c
@@ -909,7 +909,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 	if (len > 1)
 	    break;
 	goto ro_magicalize;
-    case '\024':	/* $^T */
+    case '\024':	/* $^T, ${^TAINT} */
         if (len == 1)
             goto magicalize;
         else if (strEQ(name, "\024AINT"))
@@ -1790,11 +1790,14 @@ Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags)
     case '\016':   /* $^N */
     case '\020':   /* $^P */
     case '\023':   /* $^S */
-    case '\024':   /* $^T */
     case '\026':   /* $^V */
 	if (len == 1)
 	    goto yes;
 	break;
+    case '\024':   /* $^T, ${^TAINT} */
+        if (len == 1 || strEQ(name, "\024AINT"))
+            goto yes;
+        break;
     case '1':
     case '2':
     case '3':