diff options
| author | Dan Sugalski <sugalsd@lbcc.cc.or.us> | 1997-08-07 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | 5f6761f91ec05d535baaab2c6bf33877a80d1dda (patch) | |
| tree | 80b8b63b6fcadfa87720d9d158230f16bfc2ce1b /ext/POSIX/POSIX.xs | |
| parent | 91d19b05ff4459e7cdb18fd39952092b0edc642e (diff) | |
| download | perl-5f6761f91ec05d535baaab2c6bf33877a80d1dda.tar.gz | |
posix.xs broken on VMS 7.1
private-msgid: 3.0.2.32.19970718095755.00875ba0@stargate.lbcc.cc.or.us
Diffstat (limited to 'ext/POSIX/POSIX.xs')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index f723db796a..a09eafe37a 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -40,7 +40,7 @@ #include <sys/stat.h> #include <sys/types.h> #include <time.h> -#include <unistd.h> +#include <unistd.h> /* see hints/sunos_4_1.sh */ #include <fcntl.h> #if defined(__VMS) && !defined(__POSIX_SOURCE) @@ -55,7 +55,10 @@ # define mkfifo(a,b) (not_here("mkfifo"),-1) # define tzset() not_here("tzset") -# if __VMS_VER < 70000000 +#if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000) +# define HAS_TZNAME /* shows up in VMS 7.0 or Dec C 5.6 */ +# include <utsname.h> +#else /* The default VMS emulation of Unix signals isn't very POSIXish */ typedef int sigset_t; # define sigpending(a) (not_here("sigpending"),0) @@ -125,9 +128,7 @@ # define sa_handler sv_handler # define sa_mask sv_mask # define sigsuspend(set) sigpause(*set) -# else -# define HAS_TZNAME /* shows up in VMS 7.0 */ -# endif /* __VMS_VER < 70000000 */ +# endif /* __VMS_VER >= 70000000 or Dec C 5.6 */ /* The POSIX notion of ttyname() is better served by getname() under VMS */ static char ttnambuf[64]; |