diff options
| -rwxr-xr-x | t/op/groups.t | 5 | ||||
| -rw-r--r-- | vms/vmsish.h | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 5121ff8fbb..404b8cd8ab 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -1,7 +1,7 @@ #!./perl $ENV{PATH} ="/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb" . - exists $ENV{PATH} ? ":$ENV{PATH}" : ""; + exists $ENV{PATH} ? ":$ENV{PATH}" : "" unless $^O eq 'VMS'; $ENV{LC_ALL} = "C"; # so that external utilities speak English $ENV{LANGUAGE} = 'C'; # GNU locale extension @@ -27,7 +27,8 @@ unless (eval { getgrgid(0); 1 }) { exit 0; } -quit() if (($^O eq 'MSWin32' || $^O eq 'NetWare') or $^O =~ /lynxos/i); +quit() if (($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') + or $^O =~ /lynxos/i); # We have to find a command that prints all (effective # and real) group names (not ids). The known commands are: diff --git a/vms/vmsish.h b/vms/vmsish.h index 281d503afb..2e887e45fb 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -449,7 +449,11 @@ struct interp_intern { * getgrgid() routines are available to get group entries. * The getgrent() has a separate definition, HAS_GETGRENT. */ +#if __CRTL_VER >= 70302000 +#define HAS_GROUP /**/ +#else #undef HAS_GROUP /**/ +#endif /* HAS_PASSWD * This symbol, if defined, indicates that the getpwnam() and |