[PATCH 5.004_65] Config_65-02-03.diff: SunOS and Solaris hints

[p5sagit/p5-mst-13.2.git] / perlsock.h

diff --git a/perlsock.h b/perlsock.h
index e684fe2..dc1a374 100644 (file)
--- a/perlsock.h
+++ b/perlsock.h
@@ -3,24 +3,37 @@
 
 #ifdef PERL_OBJECT
 #else
-#define PerlSock_htonlx htonl(x)
-#define PerlSock_htonsx htons(x)
-#define PerlSock_ntohlx ntohl(x)
-#define PerlSock_ntohsx ntohs(x)
+#define PerlSock_htonl(x) htonl(x)
+#define PerlSock_htons(x) htons(x)
+#define PerlSock_ntohl(x) ntohl(x)
+#define PerlSock_ntohs(x) ntohs(x)
 #define PerlSock_accept(s, a, l) accept(s, a, l)
 #define PerlSock_bind(s, n, l) bind(s, n, l)
 #define PerlSock_connect(s, n, l) connect(s, n, l)
+
 #define PerlSock_gethostbyaddr(a, l, t) gethostbyaddr(a, l, t)
 #define PerlSock_gethostbyname(n) gethostbyname(n)
-#define PerlSock_gethostent() gethostent()
+#define PerlSock_gethostent gethostent
+#define PerlSock_endhostent endhostent
 #define PerlSock_gethostname(n, l) gethostname(n, l)
+
+#define PerlSock_getnetbyaddr(n, t) getnetbyaddr(n, t)
+#define PerlSock_getnetbyname(n) getnetbyname(n)
+#define PerlSock_getnetent getnetent
+#define PerlSock_endnetent endnetent
+
 #define PerlSock_getpeername(s, n, l) getpeername(s, n, l)
+
 #define PerlSock_getprotobyname(n) getprotobyname(n)
 #define PerlSock_getprotobynumber(n) getprotobynumber(n)
-#define PerlSock_getprotoent() getprotoent()
+#define PerlSock_getprotoent getprotoent
+#define PerlSock_endprotoent endprotoent
+
 #define PerlSock_getservbyname(n, p) getservbyname(n, p)
 #define PerlSock_getservbyport(port, p) getservbyport(port, p)
-#define PerlSock_getservent() getservent()
+#define PerlSock_getservent getservent
+#define PerlSock_endservent endservent
+
 #define PerlSock_getsockname(s, n, l) getsockname(s, n, l)
 #define PerlSock_getsockopt(s, l, n, v, i) getsockopt(s, l, n, v, i)
 #define PerlSock_listen(s, b) listen(s, b)