diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-10-08 13:00:14 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-08 21:10:49 +0000 |
| commit | 7c36658b988154cf97fb44e48a4b69859fe075fb (patch) | |
| tree | 5c939a5aaf82b6ae8284451a698a7174bfb22152 /gv.c | |
| parent | 9b6f56add0290d5abf1a0544e71e01681e6e1beb (diff) | |
| download | perl-7c36658b988154cf97fb44e48a4b69859fe075fb.tar.gz | |
Re: [PATCH mg.c gv.c and others] ${^TAINT}
Message-ID: <20011008170014.L17083@blackrider>
p4raw-id: //depot/perl@12367
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -893,7 +893,6 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) case '\011': /* $^I, NOT \t in EBCDIC */ case '\016': /* $^N */ case '\020': /* $^P */ - case '\024': /* $^T */ if (len > 1) break; goto magicalize; @@ -910,6 +909,13 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) if (len > 1) break; goto ro_magicalize; + case '\024': /* $^T */ + if (len == 1) + goto magicalize; + else if (strEQ(name, "\024AINT")) + goto ro_magicalize; + else + break; case '\027': /* $^W & $^WARNING_BITS */ if (len > 1 && strNE(name, "\027ARNING_BITS") && strNE(name, "\027IDE_SYSTEM_CALLS")) |