Removed the ifdefs for INCOMPLETE_TAINTS

[perl5.git] / os2 / os2.c

diff --git a/os2/os2.c b/os2/os2.c
index 574c5fc..94b4541 100644 (file)
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -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);
 }