From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Oct 2001 12:18:39 +0000 (+0000)
Subject: NetWare update from Ananth Kesari.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a0827a6d3b6f58ae9951a917a4f12158650c772;p=p5sagit%2Fp5-mst-13.2.git

NetWare update from Ananth Kesari.

p4raw-id: //depot/perl@12376
---

diff --git a/NetWare/nwperlsys.h b/NetWare/nwperlsys.h
index 955e7c1..0d731d1 100644
--- a/NetWare/nwperlsys.h
+++ b/NetWare/nwperlsys.h
@@ -1300,9 +1300,7 @@ PerlSockSetservent(struct IPerlSock* piPerl, int stayopen)
 int
 PerlSockSetsockopt(struct IPerlSock* piPerl, SOCKET s, int level, int optname, const char* optval, int optlen)
 {
-	dTHX;
-    Perl_croak(aTHX_ "setsockopt not implemented!\n");
-	return 0;
+	return nw_setsockopt(s, level, optname, optval, optlen);
 }
 
 int
diff --git a/makedef.pl b/makedef.pl
index 702b604..c10eeb7 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -1052,6 +1052,7 @@ foreach my $symbol (qw(
 			nw_setnetent
 			nw_setprotoent
 			nw_setservent
+			nw_setsockopt
 			nw_shutdown
 			nw_crypt
 			nw_execvp