RE: perl@8150

Message-ID: <3A3D343F.13566.1ACA7D93@localhost>

Neither cygwin has a getpwuid() one can trust on.

p4raw-id: //depot/perl@8158

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index e8a2905..be3280c 100755 (executable)
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -39,7 +39,7 @@ print "ok 2\n";
 
 # look up the user's home directory
 # should return a list with one item, and not set ERROR
-if ($^O ne 'MSWin32' && $^O ne 'VMS') {
+if ($^O ne 'MSWin32' && $^O ne 'VMS' && $^O ne 'cygwin') {
   eval {
     ($name, $home) = (getpwuid($>))[0,7];
     1;