X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=NetWare%2Fnwperlsys.h;h=0d731d1fcf2e7258150982c9e163f8a39014a27d;hb=0b28bc9ad3d1c2dbf9c662b82926642b3432623d;hp=c871f0a0a77f07402de9e9338eb6f18590adfa29;hpb=8dbfbba0c55b52c9acc258d9a3522ce8b76c3497;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/NetWare/nwperlsys.h b/NetWare/nwperlsys.h
index c871f0a..0d731d1 100644
--- a/NetWare/nwperlsys.h
+++ b/NetWare/nwperlsys.h
@@ -12,7 +12,7 @@
  *                 platform specific function
  * Author       :  SGP
  * Date	Created :  June 12th 2001.
- * Date Modified:  June 26th 2001.
+ * Date Modified:  June 30th 2001.
  */
 
 #ifndef ___NWPerlSys_H___
@@ -20,6 +20,7 @@
 
 
 #include "iperlsys.h"
+#include "nwstdio.h"
 
 #include "nw5iop.h"
 #include <fcntl.h>
@@ -646,7 +647,7 @@ PerlLIOChmod(struct IPerlLIO* piPerl, const char *filename, int pmode)
 int
 PerlLIOChown(struct IPerlLIO* piPerl, const char *filename, uid_t owner, gid_t group)
 {
-	dTHXo;
+	dTHX;
     Perl_croak(aTHX_ "chown not implemented!\n");
 	return 0;
 }
@@ -860,7 +861,7 @@ PerlProc_Exit(struct IPerlProc* piPerl, int status)
 int
 PerlProcExecl(struct IPerlProc* piPerl, const char *cmdname, const char *arg0, const char *arg1, const char *arg2, const char *arg3)
 {
-	dTHXo;
+	dTHX;
     Perl_croak(aTHX_ "execl not implemented!\n");
 	return 0;
 }
@@ -916,7 +917,7 @@ PerlProcKill(struct IPerlProc* piPerl, int pid, int sig)
 int
 PerlProcKillpg(struct IPerlProc* piPerl, int pid, int sig)
 {
-    dTHXo;
+    dTHX;
     Perl_croak(aTHX_ "killpg not implemented!\n");
     return 0;
 }
@@ -930,7 +931,7 @@ PerlProcPauseProc(struct IPerlProc* piPerl)
 PerlIO*
 PerlProcPopen(struct IPerlProc* piPerl, const char *command, const char *mode)
 {
-    dTHXo;
+    dTHX;
     PERL_FLUSHALL_FOR_CHILD;
 
 	return (PerlIO*)nw_Popen((char *)command, (char *)mode, (int *)errno);
@@ -1299,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)
 {
-	dTHXo;
-    Perl_croak(aTHX_ "setsockopt not implemented!\n");
-	return 0;
+	return nw_setsockopt(s, level, optname, optval, optlen);
 }
 
 int
@@ -1319,7 +1318,7 @@ PerlSockSocket(struct IPerlSock* piPerl, int af, int type, int protocol)
 int
 PerlSockSocketpair(struct IPerlSock* piPerl, int domain, int type, int protocol, int* fds)
 {
-    dTHXo;
+    dTHX;
     Perl_croak(aTHX_ "socketpair not implemented!\n");
     return 0;
 }
@@ -1327,7 +1326,7 @@ PerlSockSocketpair(struct IPerlSock* piPerl, int domain, int type, int protocol,
 int
 PerlSockIoctlsocket(struct IPerlSock* piPerl, SOCKET s, long cmd, u_long *argp)
 {
-	dTHXo;
+	dTHX;
     Perl_croak(aTHX_ "ioctlsocket not implemented!\n");
 	return 0;
 }