From 14170903cbf11cae1ade9203966980f7d1b6d8fc Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 3 Apr 2001 01:09:12 +0000
Subject: [PATCH] EPOC fix for lib/io_udp.t failure (from Olaf Flebbe)

p4raw-id: //depot/maint-5.6/perl@9524
---
 pp_sys.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pp_sys.c b/pp_sys.c
index 545546ca094..8423bd04cf9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1489,10 +1489,6 @@ PP(pp_sysread)
 #else
 	bufsize = sizeof namebuf;
 #endif
-#ifdef OS2	/* At least Warp3+IAK: only the first byte of bufsize set */
-	if (bufsize >= 256)
-	    bufsize = 255;
-#endif
 #ifdef OS2	/* At least Warp3+IAK: only the first byte of bufsize set */
 	if (bufsize >= 256)
 	    bufsize = 255;
@@ -1503,6 +1499,10 @@ PP(pp_sysread)
 			  (struct sockaddr *)namebuf, &bufsize);
 	if (length < 0)
 	    RETPUSHUNDEF;
+#ifdef EPOC
+	/* Bogus return without padding */
+	bufsize = sizeof (struct sockaddr_in);
+#endif
 	SvCUR_set(bufsv, length);
 	*SvEND(bufsv) = '\0';
 	(void)SvPOK_only(bufsv);