diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog index 4ce797eeed..794eaad184 100644 --- a/pandora_server/ChangeLog +++ b/pandora_server/ChangeLog @@ -1,3 +1,8 @@ +2009-08-20 Sancho lerena + + * lib/PandoraFMS/Tools.pm: Undone commit of 19/8 to fix ugly mesg from + enterprise load: was breaking enterprise.... + 2009-08-19 Manuel Arostegui * pandora_server.spec: Changed email. diff --git a/pandora_server/lib/PandoraFMS/Tools.pm b/pandora_server/lib/PandoraFMS/Tools.pm index 8dcf80a845..cc73addecc 100644 --- a/pandora_server/lib/PandoraFMS/Tools.pm +++ b/pandora_server/lib/PandoraFMS/Tools.pm @@ -352,15 +352,12 @@ sub enterprise_hook ($$) { # Prepend the package name $func = 'PandoraFMS::Enterprise::' . $func; - # Check if exist before try to call it - my $output = `perl -e "use $func"`; - - if ($output){ - # Try to call the function - $output = eval { &$func (@args); }; - } else { - return $undef; - } + # Try to call the function + my $output = eval { &$func (@args); }; + + # Check for errors + return undef if ($@); + return $output; }