diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-10-09 02:11:59 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-10-09 02:11:59 +0000 |
| commit | eb27b65e7b1f9fcfa2a45bbae31ea1c1de3e4522 (patch) | |
| tree | d282a769aa1ffec02b87cb003fb988dc749211ed /gv.c | |
| parent | a2a2844f59a5c91f404052ef98a588c171fc29f8 (diff) | |
| download | perl-eb27b65e7b1f9fcfa2a45bbae31ea1c1de3e4522.tar.gz | |
#12370 forgot to modify is_gv_magical().
p4raw-id: //depot/perl@12372
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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': |