From 0da7f12a66121f537515d4f13ca24659f8a80fb6 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 26 Jun 2001 01:15:39 +0000
Subject: The default installation of Cygwin has 500 as root's uid.

p4raw-id: //depot/perl@10945
---
 lib/User/pwent.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/User')

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];
-- 
cgit v1.2.1