From 225a5dca523a9706687cc7849f9ef644967ae510 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 21 Jun 2001 12:25:58 +0000 Subject: NetWare tweaks from Guruprasad. p4raw-id: //depot/perl@10775 --- NetWare/nwperlsys.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'NetWare/nwperlsys.c') diff --git a/NetWare/nwperlsys.c b/NetWare/nwperlsys.c index b4406299fb..90b77a9c80 100644 --- a/NetWare/nwperlsys.c +++ b/NetWare/nwperlsys.c @@ -512,7 +512,7 @@ PerlLIOFileStat(struct IPerlLIO* piPerl, int handle, struct stat *buffer) int PerlLIOIOCtl(struct IPerlLIO* piPerl, int i, unsigned int u, char *data) { - return 0; + return ioctl(i, (int) u, (void *) data); } int @@ -1163,9 +1163,7 @@ PerlSockSetservent(struct IPerlSock* piPerl, int stayopen) int PerlSockSetsockopt(struct IPerlSock* piPerl, SOCKET s, int level, int optname, const char* optval, int optlen) { - dTHXo; - Perl_croak(aTHX_ "setsockopt not implemented!\n"); - return 0; + return nw_setsockopt(s, level, optname, optval, optlen); } int -- cgit v1.2.1