[Pdx-pm] red hat enterprise "perl" bug
Andy Lester
andy at petdance.com
Mon Aug 25 20:20:37 PDT 2008
On Aug 25, 2008, at 10:17 PM, Eric Wilhelm wrote:
> http://blog.vipul.net/2008/08/24/redhat-perl-what-a-tragedy/
>
> https://bugzilla.redhat.com/show_bug.cgi?id=379791
http://perlbuzz.com/2008/08/red-hats-patch-slows-down-overloading-in-perl.html
Run this to illustrate the slowdown, if you have it:
#!/usr/bin/perl
use Time::HiRes;
use overload q(<) => sub {};
my %h;
$|++;
print "Pass#\tPass time\tTotal time\n";
my $bigstart = Time::HiRes::time();
for my $i ( 1..50 ) {
my $start = Time::HiRes::time();
for my $j ( 1..1000 ) {
$h{$i*1000 + $j} = bless [ ] => 'main';
}
my $now = Time::HiRes::time();
printf( "#%2d\t%f\t%f\n", $i, $now-$start, $now-$bigstart );
}
xoxo,
Andy
--
Andy Lester => andy at petdance.com => www.petdance.com => AIM:petdance
More information about the Pdx-pm-list
mailing list