This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Removed the ifdefs for INCOMPLETE_TAINTS
[perl5.git] / 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);
        RETVAL = _getcwd2(p, MAXPATHLEN);
        ST(0) = sv_newmortal();
        sv_setpv(ST(0), RETVAL);
-#ifndef INCOMPLETE_TAINTS
        SvTAINTED_on(ST(0));
        SvTAINTED_on(ST(0));
-#endif
     }
     XSRETURN(1);
 }
     }
     XSRETURN(1);
 }
@@ -3595,10 +3593,8 @@ XS(XS_Cwd_sys_abspath)
            *t = 0;
            SvCUR_set(sv, t - SvPVX(sv));
        }
            *t = 0;
            SvCUR_set(sv, t - SvPVX(sv));
        }
-#ifndef INCOMPLETE_TAINTS
        if (!items)
            SvTAINTED_on(ST(0));
        if (!items)
            SvTAINTED_on(ST(0));
-#endif
     }
     XSRETURN(1);
 }
     }
     XSRETURN(1);
 }