Patch from Desktop team that fixes a NFS issue.

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;