projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
73077d5
)
[ PATCH ] maint/perl/t/op/groups.t for build on Cygwin
author
Gerrit P. Haase
<gp@familiehaase.de>
Tue, 16 Oct 2001 15:32:44 +0000
(17:32 +0200)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 16 Oct 2001 13:05:38 +0000
(13:05 +0000)
Message-ID: <
3BCC531C
.11494.3E433F@localhost>
p4raw-id: //depot/perl@12454
t/op/groups.t
patch
|
blob
|
history
diff --git
a/t/op/groups.t
b/t/op/groups.t
index
0531826
..
3228729
100755
(executable)
--- 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(' ', $()) {