diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 12:25:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 12:25:58 +0000 |
| commit | 225a5dca523a9706687cc7849f9ef644967ae510 (patch) | |
| tree | e8823f53fbf3b824544750b25db712cfb52a9d6d /NetWare/nwperlsys.c | |
| parent | 84037bb083599c663af466e6d56eeb23fdebad94 (diff) | |
| download | perl-225a5dca523a9706687cc7849f9ef644967ae510.tar.gz | |
NetWare tweaks from Guruprasad.
p4raw-id: //depot/perl@10775
Diffstat (limited to 'NetWare/nwperlsys.c')
| -rw-r--r-- | NetWare/nwperlsys.c | 6 |
1 files changed, 2 insertions, 4 deletions
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 |