Change 16443 by jhi@alpha on 2002/05/07 13:50:35
Subject: Re: lib/User/pwent.t on Cygwin
From: John Peacock <[EMAIL PROTECTED]>
Date: Mon, 06 May 2002 10:14:21 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/User/pwent.t#5 edit
Differences ...
==== //depot/perl/lib/User/pwent.t#5 (text) ====
Index: perl/lib/User/pwent.t
--- perl/lib/User/pwent.t#4~16305~ Wed May 1 06:16:12 2002
+++ perl/lib/User/pwent.t Tue May 7 06:50:35 2002
@@ -34,9 +34,13 @@
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];
End of Patch.
