summaryrefslogtreecommitdiff
path: root/ext/POSIX/POSIX.xs
diff options
context:
space:
mode:
Diffstat (limited to 'ext/POSIX/POSIX.xs')
-rw-r--r--ext/POSIX/POSIX.xs23
1 files changed, 19 insertions, 4 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 80af6d3b01..c2e9852494 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -2,6 +2,15 @@
#define _POSIX_
#endif
+#ifdef NETWARE
+ #define _POSIX_
+ //Ideally this should be somewhere down in the includes
+ //but putting it in other places is giving compiler errors.
+ //Also here I am unable to check for HAS_UNAME since it wouldn't have yet
+ //come into the file at this stage - sgp 18th Oct 2000
+ #include <sys/utsname.h>
+#endif /* NETWARE */
+
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
@@ -65,7 +74,7 @@
#include <fcntl.h>
#ifdef HAS_TZNAME
-# if !defined(WIN32) && !defined(__CYGWIN__)
+# if !defined(WIN32) && !defined(__CYGWIN__) && !defined(NETWARE)
extern char *tzname[];
# endif
#else
@@ -126,7 +135,7 @@ char *tzname[] = { "" , "" };
#if defined (__CYGWIN__)
# define tzname _tzname
#endif
-#if defined (WIN32)
+#if defined (WIN32) || defined (NETWARE)
# undef mkfifo
# define mkfifo(a,b) not_here("mkfifo")
# define ttyname(a) (char*)not_here("ttyname")
@@ -156,6 +165,10 @@ char *tzname[] = { "" , "" };
# define sigdelset(a,b) not_here("sigdelset")
# define sigfillset(a) not_here("sigfillset")
# define sigismember(a,b) not_here("sigismember")
+#ifndef NETWARE
+# define setuid(a) not_here("setuid")
+# define setgid(a) not_here("setgid")
+#endif /* NETWARE */
#else
# ifndef HAS_MKFIFO
@@ -182,7 +195,7 @@ char *tzname[] = { "" , "" };
# ifdef I_UTIME
# include <utime.h>
# endif
-#endif /* WIN32 */
+#endif /* WIN32 || NETWARE */
#endif /* __VMS */
typedef int SysRet;
@@ -269,7 +282,9 @@ unsigned long strtoul (const char *, char **, int);
#define tcsetpgrp(a,b) not_here("tcsetpgrp")
#endif
#ifndef HAS_TIMES
+#ifndef NETWARE
#define times(a) not_here("times")
+#endif /* NETWARE */
#endif
#ifndef HAS_UNAME
#define uname(a) not_here("uname")
@@ -1156,7 +1171,7 @@ sigaction(sig, optaction, oldaction = 0)
SV * optaction
POSIX::SigAction oldaction
CODE:
-#ifdef WIN32
+#if defined(WIN32) || defined(NETWARE)
RETVAL = not_here("sigaction");
#else
# This code is really grody because we're trying to make the signal