Treat sockets as special in sys(read|write) (Charles Lane et al.)

p4raw-id: //depot/vmsperl@6117

diff --git a/vms/vmsish.h b/vms/vmsish.h
index c21f8f3..a181e7c 100644 (file)
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -254,6 +254,8 @@
 
 #ifdef VMS_DO_SOCKETS
 #include "sockadapt.h"
+#define PERL_SOCK_SYSREAD_IS_RECV
+#define PERL_SOCK_SYSWRITE_IS_SEND
 #endif
 
 #define BIT_BUCKET "_NLA0:"