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