diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2008-06-12 14:50:01 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2008-06-13 23:56:18 +0000 |
| commit | 211b0ba37c80f1f135df33dc279414adc3af971d (patch) | |
| tree | c073de42566435ddb0f21a95b9aec7bae8e5e1c2 | |
| parent | 3d4f2f8982098e72437cca9a29504c98a4c9ed22 (diff) | |
| download | perl-211b0ba37c80f1f135df33dc279414adc3af971d.tar.gz | |
[patch@34044] Enable getgrgid on VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <4851C439.8070007@qsl.net>
With some revisions.
p4raw-id: //depot/perl@34052
| -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 |