Change 16410: [PATCH: perl@16307] add niscat (aka NIS 3, aka NIS +) to t/op/pwent

[Jarkko Hietaniemi]

Change 16410 by jhi@alpha on 2002/05/05 03:04:56

        Subject: [PATCH: perl@16307] add niscat (aka NIS 3, aka NIS +) to t/op/pwent
        From: [EMAIL PROTECTED]
        Date: Fri, 3 May 2002 14:52:12 -0400
        Message-ID: <[EMAIL PROTECTED]>      

Affected files ...

.... //depot/perl/t/op/pwent.t#20 edit

Differences ...

==== //depot/perl/t/op/pwent.t#20 (xtext) ====
Index: perl/t/op/pwent.t
--- perl/t/op/pwent.t.~1~       Sat May  4 21:15:05 2002
+++ perl/t/op/pwent.t   Sat May  4 21:15:05 2002
@@ -49,6 +49,18 @@
        }
     }
 
+    if (not defined $where) {      # Try NIS+
+     foreach my $niscat (qw(/bin/niscat)) {
+         if (-x $niscat &&
+           open(PW, "$niscat passwd.org_dir 2>/dev/null |") &&
+           defined(<PW>)) {
+           $where = "NIS+ $niscat passwd.org_dir";
+           undef $reason;
+           last;
+         }
+     }
+    }
+
     if ($reason) {     # Give up.
        print "1..0 # Skip: $reason\n";
        exit 0;
End of Patch.