Take the taint brush to the getcwds.

p4raw-id: //depot/perl@13276

1 files changed, 3 insertions, 0 deletions

diff --git a/os2/os2.c b/os2/os2.c
index f104abd410..39463e6cb6 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -1977,6 +1977,9 @@ XS(XS_Cwd_sys_cwd)
 	RETVAL = _getcwd2(p, MAXPATHLEN);
 	ST(0) = sv_newmortal();
 	sv_setpv((SV*)ST(0), RETVAL);
+#ifndef INCOMPLETE_TAINTS
+	SvTAINTED_on(ST(0));
+#endif
     }
     XSRETURN(1);
 }