diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-26 01:15:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-26 01:15:39 +0000 |
| commit | 0da7f12a66121f537515d4f13ca24659f8a80fb6 (patch) | |
| tree | efc1598fe030ab335027ce227f2ed120b6881275 /lib | |
| parent | 93d44f78c1da5fdda2718a5ea99f51743b3a4196 (diff) | |
| download | perl-0da7f12a66121f537515d4f13ca24659f8a80fb6.tar.gz | |
The default installation of Cygwin has 500 as root's uid.
p4raw-id: //depot/perl@10945
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/User/pwent.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/User/pwent.t b/lib/User/pwent.t index e274265bd1..701c16096f 100644 --- a/lib/User/pwent.t +++ b/lib/User/pwent.t @@ -28,7 +28,8 @@ print "ok 1\n"; my $pwent = getpwuid 0; # This is the OO getpwuid. -print "not " unless $pwent->uid == 0; +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]; |