PERL fix/patch for CentOS is now out!

A.L.M.Buxey at lboro.ac.uk A.L.M.Buxey at lboro.ac.uk
Thu Sep 18 09:20:22 CEST 2008


hi,

just a quick note for those folk out there running
lots of PERL DBI things etc with their FreeRADIUS
systems on CentOS/RHEL - theres been a problem with
PERL with this distro for some time - massive speed
penalty - over 100x slower than ubuntu/suse/etc etc

this quick PERL script should complete in a sub-second

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


on an affected box it takes several seconds....anyway,
just to let people know that I can now confirm CentOS
have release their patch/fix so all is back to normal.
cannot confirm RHEL.  anyway, all PERL DBI stuff is now
back to the full speed.

alan



More information about the Freeradius-Users mailing list