From: Gerrit P. Haase <gp@familiehaase.de>
Date: Tue, 16 Oct 2001 15:32:44 +0000 (+0200)
Subject: [ PATCH ] maint/perl/t/op/groups.t for build on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8da21f90007db142fadd719757b647eef30e4e8;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH ] maint/perl/t/op/groups.t for build on Cygwin
Message-ID: <3BCC531C.11494.3E433F@localhost>

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

diff --git a/t/op/groups.t b/t/op/groups.t
index 0531826..3228729 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -100,8 +100,11 @@ print "1..2\n";
 
 $pwgid = $( + 0;
 ($pwgnam) = getgrgid($pwgid);
-@basegroup{$pwgid,$pwgnam} = (1,1);
-
+if ($^O eq 'cygwin') { # basegroup on Cygwin has id = 0.
+    @basegroup{$pwgid,$pwgnam} = (0,0);
+} else {
+    @basegroup{$pwgid,$pwgnam} = (1,1);
+}
 $seen{$pwgid}++;
 
 for (split(' ', $()) {