diff options
| author | Gerrit P. Haase <gp@familiehaase.de> | 2001-10-16 17:32:44 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-16 13:05:38 +0000 |
| commit | f8da21f90007db142fadd719757b647eef30e4e8 (patch) | |
| tree | 7298cc1aeba9d50c104b547dd5d66f951d567248 | |
| parent | 73077d539ecc1b3cdb02af89ac34a6328eef1a86 (diff) | |
| download | perl-f8da21f90007db142fadd719757b647eef30e4e8.tar.gz | |
[ PATCH ] maint/perl/t/op/groups.t for build on Cygwin
Message-ID: <3BCC531C.11494.3E433F@localhost>
p4raw-id: //depot/perl@12454
| -rwxr-xr-x | t/op/groups.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 0531826dba..3228729426 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(' ', $()) { |