Patch from Desktop team that fixes a NFS issue.

http://caml.inria.fr/mantis/view.php?id=4663

diff -urN ocaml-3.11.2/byterun/io.c ocaml-3.11.2.new/byterun/io.c

--- ocaml-3.11.2/byterun/io.c	2011-04-07 13:41:41.040436216 +0800

+++ ocaml-3.11.2.new/byterun/io.c	2011-04-07 13:42:50.119747390 +0800

@@ -479,6 +479,9 @@

   struct channel * channel = Channel(vchannel);

   if (channel->fd != -1){

     result = close(channel->fd);

+    /* Work around an NFS issue that causes close() to fails with EINVAL */

+    if ((result < 0) && (errno == EINVAL))

+      result = 0;

     channel->fd = -1;

   }else{

     result = 0;