On Tue 02 Nov 2004 16:21, Rafael Garcia-Suarez <[EMAIL PROTECTED]> wrote:
> Nicholas Clark wrote:
> > > See earlier discussion on Bugzilla:
> > > https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=137199
> > > https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=137202
> >
> > This notes that it is 30 seconds work to create a test /etc/group.
> > It fails to note one assumption. I personally do not have root access to
> > any sutiable linux machine with glibc, so cannot not test this as is, nor
> > any test proposed fix.
>
> I've tried to reproduce this with perl 5.8.5 and bleadperl (threaded and
> non-threaded), on a linux machine with glibc 2.3.3 (glibc-2.3.3-21mdk to
> be precise), and failed.
lt09mp# grep ^grp /etc/group
lt09mp# perl -le'for$g(200..299){print
join":","grp$g:!",$g,join",",map{join"",map{chr(97+int rand 26)}(1..4)}(1..500)}'
>>/etc/group
lt09mp# perl bug.pl
Group: root
Group: bin
Group: daemon
Group: sys
:
:
Group: grp297
Group: grp298
Group: grp299
Before endgrent
After endgrent
lt09mp# perl -v
This is perl, v5.8.5 built for i686-linux-64int
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2004, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.
lt09mp# /usr/bin/perl bug.pl
Group: root
Group: bin
Group: daemon
Group: sys
:
:
Group: grp296
Group: grp297
Group: grp298
Group: grp299
Out of memory!
lt09mp# /usr/bin/perl -v
This is perl, v5.8.3 built for i586-linux-thread-multi
Copyright 1987-2003, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.
lt09mp#
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.5, & 5.9.x, and 809 on HP-UX 10.20 & 11.00, 11i,
AIX 4.3, AIX 5.2, SuSE 9.1, and Win2k. http://www.cmve.net/~merijn/
http://archives.develooper.com/[EMAIL PROTECTED]/ [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org
