Bug en perl (redhat)

Original: http://blog.vipul.net/2008/08/24/redhat-perl-what-a-tragedy/

Un fallo en los paquetes perl Red Hat 5 (Centos, Fedora) hace que la llamada para crear objetos sea muy costosa. Un código como:

#!/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;
}

Ejecutado en una de nuestras máquinas Centos 4 tarda 0.2 s, en las nuevas Centos 5 pasa a 12-14 s.