hello, --- On Tue, 8/26/08, Stephen John Smoogen <smooge at gmail.com> wrote: > From: Stephen John Smoogen <smooge at gmail.com> > Subject: Re: [CentOS] Re: slow Perl on CentOS 5 > To: "CentOS mailing list" <centos at centos.org> > Date: Tuesday, August 26, 2008, 2:27 PM > On Tue, Aug 26, 2008 at 3:11 PM, Scott Silva > <ssilva at sgvwater.com> wrote: > > on 8-26-2008 2:08 PM Karanbir Singh spake the > following: > >> > >> Akemi Yagi wrote: > >>> > >>> On Mon, Aug 25, 2008 at 1:30 PM, Florin Andrei > <florin at andrei.myip.org> > >>> wrote: > >>>> > >>>> If your Perl apps are unusually slow on > CentOS 5, have a look at this > >>>> blog: > >>>> > >>>> > http://blog.vipul.net/2008/08/24/redhat-perl-what-a-tragedy/ > >>> > >>> Summary: The Upstream Vendor version of Perl > has a patch to the > >>> "bless[]" function that makes it > /extremely/ slow. > >> > >> Reliable info heard on the grapevine indicates 5.3 > would have the fix's > >> required. > >> > > So that means about 6 months away from a fix? > > > > Unless upstream bundles a hotfix that is available for > people... > > Anyone want to try and get this built on C5.2? ftp://download.fedora.redhat.com/pub/fedora/linux/updates/8/SRPMS/perl-5.8.8-40.fc8.src.rpm I've tested it out via the fc8 live CD and the bless/overload bug is absent. ------------- bug test ---------- #!/usr/bin/perl use overload q(<) => sub {}; my %h; for (my $i=0; $i<50000; $i++) { $h{$i} = bless [ ] => 'main'; print STDERR '.' if $i % 1000 == 0; } ----------------- end snip ------------ the above runs in about .4 sec, while on C5.2 it takes 8-12 seconds. -- Mark