diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-05 20:02:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-05 20:02:55 +0000 |
| commit | 7c7bf78e2115cf1c10624a9f40e98f0bff340218 (patch) | |
| tree | af654ff16d99bb96246cbc035812b56492063def /pp_sys.c | |
| parent | 29209bc5efc823322ed539ae434cba1765cb5082 (diff) | |
| parent | abf95952312f9cf679a3ebd0bb2f1758f1585f0f (diff) | |
| download | perl-7c7bf78e2115cf1c10624a9f40e98f0bff340218.tar.gz | |
Integrate with mainperl.
p4raw-id: //depot/cfgperl@3598
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1465,6 +1465,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, |