summaryrefslogtreecommitdiff
path: root/NetWare/nw5.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-05-31 13:12:51 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-31 13:12:51 +0000
commitf355267cae69288cbad383cfc3cf2811969d730e (patch)
treee80a2dd536fd9fd7dc700af3a1268eedc51da68a /NetWare/nw5.c
parent11676840748f5f7ca2c49139b3da8352772177ee (diff)
downloadperl-f355267cae69288cbad383cfc3cf2811969d730e.tar.gz
NetWare update from Ananth Kesari.
p4raw-id: //depot/perl@16922
Diffstat (limited to 'NetWare/nw5.c')
-rw-r--r--NetWare/nw5.c14
1 files changed, 14 insertions, 0 deletions
diff --git a/NetWare/nw5.c b/NetWare/nw5.c
index 5fe6ad3b16..fa57c6ea79 100644
--- a/NetWare/nw5.c
+++ b/NetWare/nw5.c
@@ -104,8 +104,22 @@ nw_setbuf(FILE *pf, char *buf)
int
nw_setmode(FILE *fp, int mode)
{
+/**
+ // Commented since a few abends were happening in fnFpSetMode
int *dummy = 0;
return(fnFpSetMode(fp, mode, dummy));
+**/
+
+ int handle = -1;
+ errno = 0;
+
+ handle = fileno(fp);
+ if (errno)
+ {
+ errno = 0;
+ return -1;
+ }
+ return setmode(handle, mode);
}
int