diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-21 08:45:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-21 08:45:06 +0000 |
| commit | a7092146033201511b749e3a5ff31247e203604d (patch) | |
| tree | 14f0599808ecedb698a5049d6b16390848911e68 /win32/win32.h | |
| parent | e4449fe1872a24e805fcc129361ea26a406317d8 (diff) | |
| download | perl-a7092146033201511b749e3a5ff31247e203604d.tar.gz | |
another win32 portability fix: make sysread() and syswrite()
work on sockets
p4raw-id: //depot/perl@2255
Diffstat (limited to 'win32/win32.h')
| -rw-r--r-- | win32/win32.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win32/win32.h b/win32/win32.h index b52ef4eb80..fef3cbc484 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -104,6 +104,11 @@ struct tms { * real filehandles. XXX Should always be defined (the other version is untested) */ #define USE_SOCKETS_AS_HANDLES +/* read() and write() aren't transparent for socket handles */ +#define PERL_SOCK_SYSREAD_IS_RECV +#define PERL_SOCK_SYSWRITE_IS_SEND + + /* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls * to read the environment, bypassing the runtime's (usually broken) * facilities for accessing the same. See note in util.c/my_setenv(). */ |