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

diff --git a/iperlsys.h b/iperlsys.h
index 6cb3206..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)