daveb@bach.austin.ibm.com (Dave Burton) (03/23/91)
Perl 4.0 compiles and tests cleanly on AIX 3.1 on the RS/6000 except
for op/groups.t, which fails. This is a bug in getgroups(2) in AIX.
A temporary workaround for those wanting a clean bill of health from
make test follows.
I haven't had any problems using the perl malloc over the AIX malloc,
in contrast to the README which suggests otherwise. Same for the -O.
The 4.0 debugger also seems to work fine with AIX.
-- Dave Burton
*** t/op/groups.t.old Fri Mar 22 17:45:55 1991
--- t/op/groups.t Fri Mar 22 17:46:09 1991
***************
*** 11,18 ****
next if $seen{$_}++;
push(@gr, (getgrgid($_))[0]);
}
$gr1 = join(' ',sort @gr);
! $gr2 = join(' ', sort split(' ',`groups`));
#print "gr1 is <$gr1>\n";
#print "gr2 is <$gr2>\n";
print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";
--- 11,19 ----
next if $seen{$_}++;
push(@gr, (getgrgid($_))[0]);
}
+ $login = getlogin || (getpwuid($<))[0];
$gr1 = join(' ',sort @gr);
! $gr2 = join(' ', sort split(' ',`groups $login`));
#print "gr1 is <$gr1>\n";
#print "gr2 is <$gr2>\n";
print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";
--
I do not speak for IBM, and vice versa. We like it that way.
Dave Burton
inet: daveb@bach.austin.ibm.com
uucp: cs.utexas.edu!ibmchs!auschs!nostromo!daveb