From: Olaf Flebbe <o.flebbe@science-computing.de>
Date: Sat, 3 Mar 2001 16:36:04 +0000 (+0100)
Subject: [perl-5.6.x, perl-current] accept for EPOC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9f1f6b08f6ee0be908e1db0a515364a9c9549b0;p=p5sagit%2Fp5-mst-13.2.git

[perl-5.6.x, perl-current] accept for EPOC
Message-ID: <Pine.LNX.4.02.10103031635190.4825-100000@milkyway.science-computing.de>

p4raw-id: //depot/perl@9002
---

diff --git a/pp_sys.c b/pp_sys.c
index 31f6fa5..5179e0b 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2440,7 +2440,8 @@ PP(pp_accept)
 #endif
 
 #ifdef EPOC
-    len = sizeof saddr;  /* EPOC somehow truncates info */
+    len = sizeof saddr;          /* EPOC somehow truncates info */
+    setbuf( IoIFP(nstio), NULL); /* EPOC gets confused about sockets */
 #endif
 
     PUSHp((char *)&saddr, len);