From f355267cae69288cbad383cfc3cf2811969d730e Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 31 May 2002 13:12:51 +0000
Subject: NetWare update from Ananth Kesari.

p4raw-id: //depot/perl@16922
---
 NetWare/nw5.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'NetWare/nw5.c')

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
-- 
cgit v1.2.1