From ebdd4fa0c0f72122a0aef85c22b8fa4d49b01b78 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 22:58:44 +0000
Subject: [PATCH] Take the taint brush to the getcwds.

p4raw-id: //depot/perl@13276
---
 djgpp/djgpp.c | 3 +++
 epoc/epoc.c   | 3 +++
 os2/os2.c     | 3 +++
 wince/wince.c | 3 +++
 4 files changed, 12 insertions(+)

diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c
index f235421..73573c3 100644
--- a/djgpp/djgpp.c
+++ b/djgpp/djgpp.c
@@ -367,6 +367,9 @@ XS(dos_GetCwd)
         ST(0)=sv_newmortal ();
         if (getcwd (tmp,PATH_MAX+1)!=NULL)
             sv_setpv ((SV*)ST(0),tmp);
+#ifndef INCOMPLETE_TAINTS
+	SvTAINTED_on(ST(0));
+#endif
     }
     XSRETURN (1);
 }
diff --git a/epoc/epoc.c b/epoc/epoc.c
index e5496ea..1348109 100644
--- a/epoc/epoc.c
+++ b/epoc/epoc.c
@@ -222,6 +222,9 @@ XS(epoc_getcwd)   /* more or less stolen from win32.c */
 	EXTEND(SP,1);
 	SvPOK_on(sv);
 	ST(0) = sv;
+#ifndef INCOMPLETE_TAINTS
+	SvTAINTED_on(ST(0));
+#endif
 	XSRETURN(1);
     }
     free( buffer);
diff --git a/os2/os2.c b/os2/os2.c
index f104abd..39463e6 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);
 }
diff --git a/wince/wince.c b/wince/wince.c
index c34928e..c137581 100644
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -1248,6 +1248,9 @@ XS(w32_GetCwd)
   EXTEND(SP,1);
   SvPOK_on(sv);
   ST(0) = sv;
+#ifndef INCOMPLETE_TAINTS
+  SvTAINTED_on(ST(0));
+#endif
   XSRETURN(1);
 }
 
-- 
2.7.4