From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 26 Jun 2001 01:15:39 +0000 (+0000)
Subject: The default installation of Cygwin has 500 as root's uid.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0da7f12a66121f537515d4f13ca24659f8a80fb6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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];