diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2001-04-03 01:36:51 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-02 22:28:04 +0000 |
| commit | 4107cc595d9f338b8ec6edd19fc7a2136a93a482 (patch) | |
| tree | 4bab3d7ce85f176739123b18a879111bab23a482 /pp_sys.c | |
| parent | a7486cbbe7de2a5d93376a3ce396434afeb67f8a (diff) | |
| download | perl-4107cc595d9f338b8ec6edd19fc7a2136a93a482.tar.gz | |
Based on
Subject: [foolperl] EPOC fix
Message-ID: <Pine.LNX.4.02.10104022335380.5547-100000@milkyway.science-computing.de>
p4raw-id: //depot/perl@9519
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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); |