Re: Test results for perl5.005_53 under NEXTSTEP 3.3 (intel)
authorGerben Wierda <G.C.Th.Wierda@AWT.nl>
Mon, 23 Nov 1998 10:07:04 +0000 (11:07 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 23 Nov 1998 10:33:42 +0000 (10:33 +0000)
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

t/op/grent.t
t/op/pwent.t

index e44e101..9d2b01d 100755 (executable)
@@ -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;
index d1dfaa5..87b2ac1 100755 (executable)
@@ -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;