The default installation of Cygwin has 500 as root's uid.

p4raw-id: //depot/perl@10945

diff --git a/lib/User/pwent.t b/lib/User/pwent.t
index e274265..701c160 100644 (file)
--- 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];