X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=7473ba56bcf4d115633a5b0027c92d4ad1119173;hb=ed79a026b5aec9cc3f786c2971aa15a4b21f396c;hp=e35cfd4c2dbb4dff9563dfd7974e3f149b9dd55c;hpb=444155da6cc74bc317db82ecaa4272f5cf6d3c9b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index e35cfd4..7473ba5 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2328,6 +2328,10 @@ PP(pp_accept)
     fcntl(fd, F_SETFD, fd > PL_maxsysfd);	/* ensure close-on-exec */
 #endif
 
+#ifdef EPOC
+    len = sizeof saddr;  /* EPOC somehow truncates info */
+#endif
+
     PUSHp((char *)&saddr, len);
     RETURN;