From: Gerben Wierda <G.C.Th.Wierda@AWT.nl>
Date: Mon, 23 Nov 1998 10:07:04 +0000 (+0100)
Subject: Re: Test results for perl5.005_53 under NEXTSTEP 3.3 (intel)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ee42efb380b09e5d4ab4a26bb9f7807581a8ee4;p=p5sagit%2Fp5-mst-13.2.git

Re: Test results for perl5.005_53 under NEXTSTEP 3.3 (intel)

To: Jarkko Hietaniemi <jhi@cc.hut.fi>
Message-Id: <9811230907.AA06484@AWT.nl>

NeXTstep NetInfo uses nidump to get the user/group databases.

p4raw-id: //depot/cfgperl@2293
---

diff --git a/t/op/grent.t b/t/op/grent.t
index e44e101..9d2b01d 100755
--- a/t/op/grent.t
+++ b/t/op/grent.t
@@ -7,10 +7,9 @@ BEGIN {
 
     my $GR = "/etc/group";
 
-    if ($Config{'i_grp'} ne 'define' or not -f $GR or not open(GR, $GR)
-	# NeXTstep /etc/group is used only at boot time,
-	# after that it's up to NetInfo and NIS/YP.
-	or $^O eq 'next'
+    if (($^O eq 'next' and not open(GR, "nidump group .|"))
+	or (defined $Config{'i_grp'} and $Config{'i_grp'} ne 'define')
+	or not -f $GR or not open(GR, $GR)
 	) {
 	print "1..0\n";
 	exit 0;
@@ -50,6 +49,7 @@ while (<GR>) {
 	$not = 1, last
 	    if $name    ne $name_s    or
 # Shadow passwords confuse this.
+# Not that group passwords are used much but still.
 #              $passwd  ne $passwd_s  or
                $gid     ne $gid_s     or
                $members ne $members_s;
diff --git a/t/op/pwent.t b/t/op/pwent.t
index d1dfaa5..87b2ac1 100755
--- a/t/op/pwent.t
+++ b/t/op/pwent.t
@@ -7,10 +7,9 @@ BEGIN {
 
     my $PW = "/etc/passwd";
 
-    if ($Config{'i_pwd'} ne 'define' or not -f $PW or not open(PW, $PW)
-	# NeXTstep /etc/passwd is used only at boot time,
-	# after that it's up to NetInfo and NIS/YP.
-	or $^O eq 'next'
+    if (($^O eq 'next' and not open(PW, "nidump passwd .|"))
+        or (defined $Config{'i_pwd'} and $Config{'i_pwd'} ne 'define')
+	or not -f $PW or not open(PW, $PW)
 	) {
 	print "1..0\n";
 	exit 0;