Add the fruits of Larry Shatzer's version verifying script.

[perl5.git] / wince / wince.c

diff --git a/wince/wince.c b/wince/wince.c
index e9c9c8c..c34928e 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.
@@ -1597,3 +1597,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);
+}
+