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 /os2 | |
| 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 'os2')
| -rw-r--r-- | os2/os2.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -3461,9 +3461,7 @@ XS(XS_Cwd_sys_cwd) RETVAL = _getcwd2(p, MAXPATHLEN); ST(0) = sv_newmortal(); sv_setpv(ST(0), RETVAL); -#ifndef INCOMPLETE_TAINTS SvTAINTED_on(ST(0)); -#endif } XSRETURN(1); } @@ -3595,10 +3593,8 @@ XS(XS_Cwd_sys_abspath) *t = 0; SvCUR_set(sv, t - SvPVX(sv)); } -#ifndef INCOMPLETE_TAINTS if (!items) SvTAINTED_on(ST(0)); -#endif } XSRETURN(1); } |