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 (file)
--- 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];