diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-06 06:52:57 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-06 06:52:57 +0000 |
| commit | 626727d5e2c1f691a308ce30d70cf3d5998f4c53 (patch) | |
| tree | 611b9fa6b8a42a175956122a38e7e90da42b04f6 /pp_sys.c | |
| parent | abf95952312f9cf679a3ebd0bb2f1758f1585f0f (diff) | |
| parent | 7c7bf78e2115cf1c10624a9f40e98f0bff340218 (diff) | |
| download | perl-626727d5e2c1f691a308ce30d70cf3d5998f4c53.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@3601
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -46,6 +46,9 @@ extern "C" int syscall(unsigned long,...); #if defined(HAS_SOCKET) && !defined(VMS) /* VMS handles sockets via vmsish.h */ # include <sys/socket.h> +# if defined(USE_SOCKS) && defined(I_SOCKS) +# include <socks.h> +# endif # ifdef I_NETDB # include <netdb.h> # endif @@ -1466,6 +1469,10 @@ PP(pp_sysread) if (bufsize >= 256) bufsize = 255; #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, |