Change 34052 by [EMAIL PROTECTED] on 2008/06/13 23:56:18
Subject: [EMAIL PROTECTED] Enable getgrgid on VMS
From: "John E. Malmberg" <[EMAIL PROTECTED]>
Date: Thu, 12 Jun 2008 19:50:01 -0500
Message-id: <[EMAIL PROTECTED]>
With some revisions.
Affected files ...
... //depot/perl/t/op/groups.t#34 edit
... //depot/perl/vms/vmsish.h#92 edit
Differences ...
==== //depot/perl/t/op/groups.t#34 (xtext) ====
Index: perl/t/op/groups.t
--- perl/t/op/groups.t#33~33774~ 2008-04-30 08:18:24.000000000 -0700
+++ perl/t/op/groups.t 2008-06-13 16:56:18.000000000 -0700
@@ -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 @@
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:
==== //depot/perl/vms/vmsish.h#92 (text) ====
Index: perl/vms/vmsish.h
--- perl/vms/vmsish.h#91~33343~ 2008-02-21 16:20:45.000000000 -0800
+++ perl/vms/vmsish.h 2008-06-13 16:56:18.000000000 -0700
@@ -449,7 +449,11 @@
* 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
End of Patch.
