From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Jan 2002 17:57:21 +0000 (+0000)
Subject: OS/390 USS has a different idea of the pw* functions.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=598f41c0be2217023ec46942f6ad87e0b061e032;p=p5sagit%2Fp5-mst-13.2.git

OS/390 USS has a different idea of the pw* functions.
Also, test the name with eq, not with ==.

p4raw-id: //depot/perl@14446
---

diff --git a/lib/User/pwent.t b/lib/User/pwent.t
index 701c160..91a85cc 100644
--- a/lib/User/pwent.t
+++ b/lib/User/pwent.t
@@ -32,10 +32,16 @@ print "not " unless $pwent->uid    == 0 ||
                     ($^O eq 'cygwin'  && $pwent->uid == 500); # go figure
 print "ok 2\n";
 
-print "not " unless $pwent->name   == $pwent[0];
+print "not " unless $pwent->name   eq $pwent[0];
 print "ok 3\n";
 
-print "not " unless $pwent->passwd eq $pwent[1];
+if ($^O eq 'os390') {
+    print "not "
+	unless not defined $pwent->passwd &&
+	       $pwent[1] eq '0'; # go figure
+} else {
+    print "not " unless $pwent->passwd eq $pwent[1];
+}
 print "ok 4\n";
 
 print "not " unless $pwent->uid    == $pwent[2];