From: Olaf Flebbe <o.flebbe@science-computing.de>
Date: Mon, 2 Apr 2001 23:36:51 +0000 (+0200)
Subject: Based on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4107cc595d9f338b8ec6edd19fc7a2136a93a482;p=p5sagit%2Fp5-mst-13.2.git

Based on

Subject: [foolperl] EPOC fix
Message-ID: <Pine.LNX.4.02.10104022335380.5547-100000@milkyway.science-computing.de>

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

diff --git a/pp_sys.c b/pp_sys.c
index 3285574..e2c4111 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1561,6 +1561,10 @@ PP(pp_sysread)
 			  (struct sockaddr *)namebuf, &bufsize);
 	if (count < 0)
 	    RETPUSHUNDEF;
+#ifdef EPOC
+        /* Bogus return without padding */
+	bufsize = sizeof (struct sockaddr_in);
+#endif
 	SvCUR_set(bufsv, count);
 	*SvEND(bufsv) = '\0';
 	(void)SvPOK_only(bufsv);