diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-06-08 00:47:58 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-05 18:30:51 +0000 |
| commit | abf95952312f9cf679a3ebd0bb2f1758f1585f0f (patch) | |
| tree | 37ada3a8e88dc7a1d08cf1ff5721e2f10087094b /pp_sys.c | |
| parent | 048c1ddfd117b35fccfed36cb158c852c08324a0 (diff) | |
| download | perl-abf95952312f9cf679a3ebd0bb2f1758f1585f0f.tar.gz | |
Long-standing UDP sockets bug on OS/2
Message-Id: <199906080847.EAA03810@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@3596
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1462,6 +1462,10 @@ 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 buffer = SvGROW(bufsv, length+1); /* 'offset' means 'flags' here */ length = PerlSock_recvfrom(PerlIO_fileno(IoIFP(io)), buffer, length, offset, |