EPOC fix for lib/io_udp.t failure (from Olaf Flebbe)

p4raw-id: //depot/maint-5.6/perl@9524
rurban · Apr 3, 2001 · 1417090 · 1417090
1 parent 541b948
commit 1417090
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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);