From d5ff79b3161a608c49c52fd6aa22cff1af6f6b82 Mon Sep 17 00:00:00 2001
From: Olaf Flebbe <o.flebbe@science-computing.de>
Date: Tue, 27 Feb 2001 00:34:36 +0100
Subject: [perl-current] EPOC Message-ID:
 <Pine.LNX.4.02.10102262333490.3781-100000@milkyway.science-computing.de>

p4raw-id: //depot/perl@8956
---
 pp_sys.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'pp_sys.c')

diff --git a/pp_sys.c b/pp_sys.c
index c949cd3fdd..8703a09e9f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2210,6 +2210,10 @@ PP(pp_socket)
     fcntl(fd, F_SETFD, fd > PL_maxsysfd);	/* ensure close-on-exec */
 #endif
 
+#ifdef EPOC
+    setbuf( IoIFP(io), NULL); /* EPOC gets confused about sockets */
+#endif
+
     RETPUSHYES;
 #else
     DIE(aTHX_ PL_no_sock_func, "socket");
-- 
cgit v1.2.1