diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-05-06 06:14:21 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-07 13:50:35 +0000 |
| commit | 5a35688369fffaf661c919710f783712ba978b59 (patch) | |
| tree | 519b3311c753657750489ba275f5c059bba7b69c /lib/User | |
| parent | 111e03c14c251345e80af50d259fd52d454dd8df (diff) | |
| download | perl-5a35688369fffaf661c919710f783712ba978b59.tar.gz | |
Re: lib/User/pwent.t on Cygwin
Message-ID: <3CD68FBD.8020502@rowman.com>
p4raw-id: //depot/perl@16443
Diffstat (limited to 'lib/User')
| -rw-r--r-- | lib/User/pwent.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/User/pwent.t b/lib/User/pwent.t index 853526c93b..d6bd040df2 100644 --- a/lib/User/pwent.t +++ b/lib/User/pwent.t @@ -34,9 +34,13 @@ print "ok 1\n"; my $pwent = getpwuid $uid; # This is the OO getpwuid. my $uid_expect = $uid; -if ( $^O eq 'cygwin' ) { $uid_expect = 500; } # go figure - -print "not " unless $pwent->uid == $uid_expect ; +if ( $^O eq 'cygwin' ) { + print "not " unless ( $pwent->uid == $uid_expect + || $pwent->uid == 500 ); # go figure +} +else { + print "not " unless $pwent->uid == $uid_expect ; +} print "ok 2\n"; print "not " unless $pwent->name eq $pwent[0]; |