<div dir="ltr">Thanks for info.... <br>#yum update perl<br><br> is a solution<br><br><br><div class="gmail_quote">On Thu, Sep 18, 2008 at 9:20 AM,  <span dir="ltr"><<a href="mailto:A.L.M.Buxey@lboro.ac.uk">A.L.M.Buxey@lboro.ac.uk</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">hi,<br>
<br>
just a quick note for those folk out there running<br>
lots of PERL DBI things etc with their FreeRADIUS<br>
systems on CentOS/RHEL - theres been a problem with<br>
PERL with this distro for some time - massive speed<br>
penalty - over 100x slower than ubuntu/suse/etc etc<br>
<br>
this quick PERL script should complete in a sub-second<br>
<br>
#!/usr/bin/perl<br>
use overload q(<) => sub {};<br>
my %h;<br>
for (my $i=0; $i<50000; $i++) {<br>
   $h{$i} = bless [ ] => 'main';<br>
      print STDERR '.' if $i % 1000 == 0;<br>
      }<br>
<br>
<br>
on an affected box it takes several seconds....anyway,<br>
just to let people know that I can now confirm CentOS<br>
have release their patch/fix so all is back to normal.<br>
cannot confirm RHEL.  anyway, all PERL DBI stuff is now<br>
back to the full speed.<br>
<br>
alan<br>
-<br>
List info/subscribe/unsubscribe? See <a href="http://www.freeradius.org/list/users.html" target="_blank">http://www.freeradius.org/list/users.html</a><br>
</blockquote></div><br></div>