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.
>
--
Bill