Integrate mainline some more

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

diff --git a/wince/wince.c b/wince/wince.c
index e9c9c8c..c137581 100644 (file)
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -1,6 +1,6 @@
 /*  WINCE.C - stuff for Windows CE
  *
- *  Time-stamp: <01/08/01 19:29:57 keuchel@w2k>
+ *  Time-stamp: <26/10/01 15:25:20 keuchel@keuchelnt>
  *
  *  You may distribute under the terms of either the GNU General Public
  *  License or the Artistic License, as specified in the README file.
@@ -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);
 }
 
@@ -1597,3 +1600,19 @@ Perl_sys_intern_clear(pTHX)
 #  endif
 }
 
+//////////////////////////////////////////////////////////////////////
+
+#undef getcwd
+
+char *
+getcwd(char *buf, size_t size)
+{
+  return xcegetcwd(buf, size);
+}
+
+int 
+isnan(double d)
+{
+  return _isnan(d);
+}
+