Re: Shared libperl.so and build issues

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

diff --git a/wince/wince.c b/wince/wince.c
index f72c1fe..16bf2d2 100644 (file)
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -947,12 +947,11 @@ win32_rename(const char *oname, const char *newname)
 DllExport int
 win32_setmode(int fd, int mode)
 {
-  if(mode != O_BINARY)
-    {
-      Perl_croak(aTHX_ PL_no_func, "setmode");
-      return -1;
-    }
-  return 0;
+    /* currently 'celib' seem to have this function in src, but not
+     * exported. When it will be, we'll uncomment following line.
+     */
+    /* return xcesetmode(fd, mode); */
+    return 0;
 }
 
 DllExport long
@@ -996,15 +995,15 @@ win32_eof(int fd)
 DllExport int
 win32_dup(int fd)
 {
-  Perl_croak(aTHX_ PL_no_func, "dup");
-  return -1;
+  //vv Perl_croak(aTHX_ PL_no_func, "dup");
+  return xcedup(fd); // from celib/ceio.c; requires some more work on it.
 }
 
 DllExport int
 win32_dup2(int fd1,int fd2)
 {
-  Perl_croak(aTHX_ PL_no_func, "dup2");
-  return -1;
+  //Perl_croak(aTHX_ PL_no_func, "dup2");
+  return xcedup2(fd1,fd2);
 }
 
 DllExport int