diff options
author | Brian Fraser <fraserbn@gmail.com> | 2013-09-05 22:05:38 -0300 |
---|---|---|
committer | Brian Fraser <fraserbn@gmail.com> | 2013-09-21 08:47:42 -0300 |
commit | adf4621acac87682086f49be53bd2a451ace02ea (patch) | |
tree | 5578fb0ca7ec7a485b7f749314f38ec416a7ceed /pp_sys.c | |
parent | 009819bba34f5d921632a25a7dcbb643b435c0e9 (diff) | |
download | perl-adf4621acac87682086f49be53bd2a451ace02ea.tar.gz |
Removed the ifdefs for INCOMPLETE_TAINTS
This was added in 5.5/5.6 as a backwards-compatibility measure
when taint was extended to happen in more places.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -3610,9 +3610,7 @@ PP(pp_readlink) char buf[MAXPATHLEN]; int len; -#ifndef INCOMPLETE_TAINTS TAINT; -#endif tmps = POPpconstx; len = readlink(tmps, buf, sizeof(buf) - 1); if (len < 0) @@ -3841,10 +3839,8 @@ PP(pp_readdir) #else sv = newSVpv(dp->d_name, 0); #endif -#ifndef INCOMPLETE_TAINTS if (!(IoFLAGS(io) & IOf_UNTAINT)) SvTAINTED_on(sv); -#endif mXPUSHs(sv); } while (gimme == G_ARRAY); @@ -5210,11 +5206,9 @@ PP(pp_gpwent) sv_setpv(sv, pwent->pw_passwd); # endif -# ifndef INCOMPLETE_TAINTS /* passwd is tainted because user himself can diddle with it. * admittedly not much and in a very limited way, but nevertheless. */ SvTAINTED_on(sv); -# endif sv_setuid(PUSHmortal, pwent->pw_uid); sv_setgid(PUSHmortal, pwent->pw_gid); @@ -5257,18 +5251,14 @@ PP(pp_gpwent) # else PUSHs(sv = sv_mortalcopy(&PL_sv_no)); # endif -# ifndef INCOMPLETE_TAINTS /* pw_gecos is tainted because user himself can diddle with it. */ SvTAINTED_on(sv); -# endif mPUSHs(newSVpv(pwent->pw_dir, 0)); PUSHs(sv = sv_2mortal(newSVpv(pwent->pw_shell, 0))); -# ifndef INCOMPLETE_TAINTS /* pw_shell is tainted because user himself can diddle with it. */ SvTAINTED_on(sv); -# endif # ifdef PWEXPIRE mPUSHi(pwent->pw_expire); |