X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=iperlsys.h;h=279aac50ff1f772eed56b637ea26ef609beca642;hb=d0cac7ff8a4e0bb37b605e998ea484c1ab5f806a;hp=91389a2b7b509c89d29c7524930ab22b97f60ad4;hpb=ff95b63ed9e9faabe3ba15c12a39c2c97a712ee9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/iperlsys.h b/iperlsys.h
index 91389a2..279aac5 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -907,6 +907,7 @@ public:
 #define PerlSock_inet_addr(c)		inet_addr(c)
 #define PerlSock_inet_ntoa(i)		inet_ntoa(i)
 #define PerlSock_listen(s, b)		listen(s, b)
+#define PerlSock_recv(s, b, l, f)	recv(s, b, l, f)
 #define PerlSock_recvfrom(s, b, l, f, from, fromlen)			\
 	recvfrom(s, b, l, f, from, fromlen)
 #define PerlSock_select(n, r, w, e, t)	select(n, r, w, e, t)
@@ -926,5 +927,22 @@ public:
 
 #endif	/* PERL_OBJECT */
 
+/* Mention
+
+   HAS_READV
+   HAS_RECVMSG
+   HAS_SENDMSG
+   HAS_WRITEV
+   HAS_STRUCT_MSGHDR
+   HAS_STRUCT_CMSGHDR
+   I_SYSUIO
+
+   here so that Configure picks them up.  Perl core does not
+   use them but somebody might want to extend IO:: someday.
+
+   Jarkko Hietaniemi November 1998
+
+   */
+
 #endif	/* __Inc__IPerl___ */