This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move pwent.t's test for NIS+ earlier, before the "fallback" of /etc/passwd
authorNicholas Clark <nick@ccl4.org>
Fri, 11 Mar 2011 15:00:31 +0000 (15:00 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 12 Mar 2011 16:45:20 +0000 (16:45 +0000)
This seems a more logical place for it, on the assumptions that
a: only 1 of the 4 programs tried will produce results
b: Reading from /etc/passwd is intended as a fallback if none produce results.

t/op/pwent.t

index 347a680..d061d77 100644 (file)
@@ -35,6 +35,9 @@ BEGIN {
     # Try NetInfo.
     $where //= try_prog('NetInfo passwd', 'passwd .', '/usr/bin/nidump');
 
+    # Try NIS+.
+    $where //= try_prog('NIS+', 'passwd.org_dir', '/bin/niscat');
+
     if (not defined $where &&          # Try dscl
        $Config{useperlio} eq 'define') {       # need perlio
 
@@ -106,9 +109,6 @@ BEGIN {
        }
     }
 
-    # Try NIS+.
-    $where //= try_prog('NIS+', 'passwd.org_dir', '/bin/niscat');
-
     undef $reason if defined $where;
 
     if ($reason) {     # Give up.