diff options
| author | David Mitchell <davem@iabyn.com> | 2010-04-11 23:45:29 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-04-11 23:58:11 +0100 |
| commit | 11035fcf28d4d5fe35c7f6719dbd07b704a8f266 (patch) | |
| tree | 22545362f494af04d7e36a479a5492bb8179aac1 /mg.c | |
| parent | 459defa14829d1e98582a2fcd871ef3425e1fe38 (diff) | |
| download | perl-11035fcf28d4d5fe35c7f6719dbd07b704a8f266.tar.gz | |
remove 'enable taint if modify gid/uid' feature
If at runtime you modify any of any the id variables $<, $>, $(, $),
such that the id and effective id differ, perl used to enable tainting,
even if -T wasn't specified at startup.
This commit removes that feature. See
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2010-03/mail9.html
RT #67260
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -2645,7 +2645,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #endif #endif PL_uid = PerlProc_getuid(); - PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); break; case '>': PL_euid = SvIV(sv); @@ -2672,7 +2671,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #endif #endif PL_euid = PerlProc_geteuid(); - PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); break; case '(': PL_gid = SvIV(sv); @@ -2699,7 +2697,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #endif #endif PL_gid = PerlProc_getgid(); - PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); break; case ')': #ifdef HAS_SETGROUPS @@ -2761,7 +2758,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #endif #endif PL_egid = PerlProc_getegid(); - PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); break; case ':': PL_chopset = SvPV_force(sv,len); |