On Sun, 2008-08-31 at 15:09 +0200, Fabian Arrotin wrote:
<snip>
I've just updated a tmp DomU machine : Without the updated perl : time /tmp/perlbug.pl .................................................. real 0m21.473s user 0m21.345s sys 0m0.044s
with perl.x86_64 4:5.8.8-10.el5_2.3.centos from Testing : time /tmp/perlbug.pl .................................................. real 0m0.214s user 0m0.188s sys 0m0.024s
The test was run several times with approximatively the same results (and after a reboot too) The perl script used was the one someone posted on the CentOS list recently :
------------- 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 ------------
I'll test on other machines but i admit i'm not a Perl user myself nor have perl scripts that i use for day-to-day operations
I ran that on mine and have similar good results. I'd forgotten about the test script someone posted.
On an AMD Athlon XP3200+ (2200.080 MHz, 4403.11 BogoMIPS) I got similar to this.
real 0m0.286s user 0m0.234s sys 0m0.018s
Thanks.