[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 (file)
--- 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);