X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=wince%2Fwince.c;h=16bf2d2990c5bd2a85b22d1bde694948a0dd31f8;hb=1ff4263c2be000d5dd4e3ae4643d6c34358e9dce;hp=f72c1fef1e32080a902a40e63d545f6b85d86c5a;hpb=e2a02c1e735e4afbf3df91186f80982fdd43695e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/wince/wince.c b/wince/wince.c
index f72c1fe..16bf2d2 100644
--- 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