Change 14446 by jhi@alpha on 2002/01/27 17:57:21
OS/390 USS has a different idea of the pw* functions.
Also, test the name with eq, not with ==.
Affected files ...
.... //depot/perl/lib/User/pwent.t#3 edit
Differences ...
==== //depot/perl/lib/User/pwent.t#3 (text) ====
Index: perl/lib/User/pwent.t
--- perl/lib/User/pwent.t.~1~ Sun Jan 27 11:00:05 2002
+++ perl/lib/User/pwent.t Sun Jan 27 11:00:05 2002
@@ -32,10 +32,16 @@
($^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];
End of Patch.
