X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2986a63f7e513cf37f46db9f211b77071260031f..306196c33b5ac60c7c253de83663fec31448e22d:/NetWare/nw5sck.h

diff --git a/NetWare/nw5sck.h b/NetWare/nw5sck.h
index 1b0bc51..b32493f 100644
--- a/NetWare/nw5sck.h
+++ b/NetWare/nw5sck.h
@@ -8,10 +8,11 @@
  */
 
 /*
- * FILENAME		:	nw5sck.h
- * DESCRIPTION	:	Socket related functions.
- * Author		:	SGP
- * Date			:	January 2001.
+ * FILENAME     :  nw5sck.h
+ * DESCRIPTION  :  Socket related functions.
+ * Author       :  SGP
+ * Date         :  January 2001.
+ * Date Modified:  June 26th 2001.
  *
  */
 
@@ -43,7 +44,6 @@ struct nwsockent local_context;
 # undef getnetbyname
 # undef gethostbyaddr
 # undef getprotobyname
-# undef getprotobyname
 # undef getservbyname
 # undef getservbyport
 # undef getservent
@@ -65,7 +65,6 @@ struct nwsockent local_context;
 # define getnetbyaddr(net,typ) NWgetnetbyaddr(&local_context,net,typ)
 # define getnetbyname(name)    NWgetnetbyname(&local_context,name)
 # define getprotobyname(name)  NWgetprotobyname(&local_context,name)
-# define getprotobyname(name)  NWgetprotobyname(&local_context,name)
 # define getservbyname(n,p)    NWgetservbyname(&local_context,n,p)
 # define getservbyport(n,p)    NWgetservbyport(&local_context,n,p)
 # define getservent()          NWgetservent(&local_context)
@@ -98,6 +97,7 @@ void nw_sethostent(int stayopen);
 void nw_setnetent(int stayopen);
 void nw_setprotoent(int stayopen);
 void nw_setservent(int stayopen);
+int nw_setsockopt(SOCKET s, int level, int optname, const char* optval, int optlen);
 
 int nw_getsockname(SOCKET s, struct sockaddr *addr, int *addrlen);
 int nw_getsockopt(SOCKET s, int level, int optname, char *optval, int *optlen);