diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-27 17:57:21 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-27 17:57:21 +0000 |
commit | 598f41c0be2217023ec46942f6ad87e0b061e032 (patch) | |
tree | 8b8ff9d0f4413bf55323421dd51b6eb1af0f91ff /lib/User | |
parent | 3dccc55c6f7c2628aaa90e6f846f1f28d1834fac (diff) | |
download | perl-598f41c0be2217023ec46942f6ad87e0b061e032.tar.gz |
OS/390 USS has a different idea of the pw* functions.
Also, test the name with eq, not with ==.
p4raw-id: //depot/perl@14446
Diffstat (limited to 'lib/User')
-rw-r--r-- | lib/User/pwent.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/User/pwent.t b/lib/User/pwent.t index 701c16096f..91a85ccbd2 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]; |