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