Integrate mainline some more

[p5sagit/p5-mst-13.2.git] / wince / wince.c

diff --git a/wince/wince.c b/wince/wince.c
index c34928e..c137581 100644 (file)
--- 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);
 }