From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Oct 2001 20:55:08 +0000 (+0000)
Subject: Taint the getcwd() result also in Cygwin.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6be3b590ae105cfca64b02268fad079cb73ed214;p=p5sagit%2Fp5-mst-13.2.git

Taint the getcwd() result also in Cygwin.
(TODO: which other platforms need the same thing?)

p4raw-id: //depot/perl@12591
---

diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c
index 6a71713..0b4dcc8 100644
--- a/cygwin/cygwin.c
+++ b/cygwin/cygwin.c
@@ -147,6 +147,9 @@ XS(Cygwin_cwd)
     if((cwd = getcwd(NULL, -1))) {
 	ST(0) = sv_2mortal(newSVpv(cwd, 0));
 	safesysfree(cwd);
+#ifndef INCOMPLETE_TAINTS
+	SvTAINTED_on(ST(0));
+#endif
 	XSRETURN(1);
     }
     XSRETURN_UNDEF;