[CentOS] Re: slow Perl on CentOS 5

Wed Aug 27 04:18:46 UTC 2008
Mark Pryor <tlviewer at yahoo.com>

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