[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