From: John Peacock <jpeacock@rowman.com>
Date: Mon, 6 May 2002 10:14:21 +0000 (-0400)
Subject: Re: lib/User/pwent.t on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a35688369fffaf661c919710f783712ba978b59;p=p5sagit%2Fp5-mst-13.2.git

Re: lib/User/pwent.t on Cygwin
Message-ID: <3CD68FBD.8020502@rowman.com>

p4raw-id: //depot/perl@16443
---

diff --git a/lib/User/pwent.t b/lib/User/pwent.t
index 853526c..d6bd040 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];