diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog index 9fa17bd378..7b738441d2 100644 --- a/pandora_server/ChangeLog +++ b/pandora_server/ChangeLog @@ -1,3 +1,8 @@ +2012-02-06 Dario Rodriguez + + * util/pandora_xml_stress.pl: Fixed a problem with new version of perl + with threads::all, also fixed a concatenation error in a string. + 2012-02-06 Koichiro Kikuchi * lib/PandoraFMS/SNMPServer.pm: Added SNMPv2 Trap support! diff --git a/pandora_server/util/pandora_xml_stress.pl b/pandora_server/util/pandora_xml_stress.pl index 1099ea578d..f9d8aea06b 100755 --- a/pandora_server/util/pandora_xml_stress.pl +++ b/pandora_server/util/pandora_xml_stress.pl @@ -632,7 +632,7 @@ sub get_and_send_agent_conf(\@\%\@\%) { my $timezone_offset = get_conf_token($conf, 'timezone_offset', '0'); my $module_txt = ''; - my $temp = ''; + my $temp = ""; # Create the block of modules. foreach my $module (@{$modules}) { @@ -819,7 +819,7 @@ my $interval = get_conf_token (\%conf, 'agent_interval', '300'); log_message (\%conf, "Generating XML data files for $Agents agents from $time_from to $time_to interval $interval."); # Wait for all threads to finish -foreach my $thr (threads->list(threads::all)) { +foreach my $thr (threads->list()) { $thr->join (); }