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 /mg.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 'mg.c')
| -rw-r--r-- | mg.c | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -612,12 +612,16 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) } break; case '\024': /* ^T */ + if (*(mg->mg_ptr+1) == '\0') { #ifdef BIG_TIME - sv_setnv(sv, PL_basetime); + sv_setnv(sv, PL_basetime); #else - sv_setiv(sv, (IV)PL_basetime); + sv_setiv(sv, (IV)PL_basetime); #endif - break; + } + else if (strEQ(mg->mg_ptr, "\024AINT")) + sv_setiv(sv, PL_tainting); + break; case '\027': /* ^W & $^WARNING_BITS & ^WIDE_SYSTEM_CALLS */ if (*(mg->mg_ptr+1) == '\0') sv_setiv(sv, (IV)((PL_dowarn & G_WARN_ON) ? TRUE : FALSE)); |