Hi all,
I found out that one of my perl scripts is heavily affected by the
current bug. I was lazy to compile anything and I didn't want to mess
up my system doing some experiments, so I tried to install ActivePerl as
a temporary solution instead (RPMs are available). ActivePerl 5.8 is
approximately 73x faster that CentOS version and ActivePerl 5.10 even
slightly faster. Both versions and all installed packages (GUI ppm)
work flawlessly and at least for me it is the way how to survive until
CentOS 5.3 will be released.
[vamo@argon ~]$ cat test.pl
#!/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;
}
print "\n";
[vamo@argon ~]$ /opt/ActivePerl-5.8/bin/perl -d:DProf test.pl
..................................................
[vamo@argon ~]$ dprofpp tmon.out
Total Elapsed Time = 0.199955 Seconds
User+System Time = 0.189955 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
5.26 0.010 0.010 2 0.0050 0.0050 main::BEGIN
0.00 - -0.000 1 - - overload::OVERLOAD
0.00 - -0.000 1 - - warnings::BEGIN
0.00 - -0.000 2 - - warnings::register::mkMask
0.00 - -0.000 1 - - overload::import
0.00 - -0.000 1 - - overload::BEGIN
0.00 - -0.000 1 - - warnings::register::import
[vamo@argon ~]$ /usr/bin/perl -d:DProf test.pl
..................................................
[vamo@argon ~]$ dprofpp tmon.out
Total Elapsed Time = 12.48996 Seconds
User+System Time = 12.47996 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
0.08 0.010 0.010 1 0.0100 0.0100 main::BEGIN
0.00 - -0.000 1 - - warnings::BEGIN
0.00 - -0.000 1 - - overload::OVERLOAD
0.00 - -0.000 2 - - warnings::register::mkMask
0.00 - -0.000 1 - - overload::import
0.00 - -0.000 1 - - overload::BEGIN
0.00 - -0.000 1 - - warnings::register::import
Vaclav
_______________________________________________
CentOS mailing list
CentOS@xxxxxxxxxx
http://lists.centos.org/mailman/listinfo/centos
