Skip to content
Extraits de code Groupes Projets
Valider c5e8e4fa rédigé par TC's avatar TC
Parcourir les fichiers

Cleaned up

parent 52e8d899
Branches
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
......@@ -14,7 +14,7 @@ sub add_event
{
return 0 unless(_register_event(@_));
return _do_change_event($_[0]);
return _change_event($_[0]);
} # Fin add_event
......@@ -51,10 +51,10 @@ sub _register_event
# ###
# _do_change_event
# _change_event
# Change la fonction handler par défaut d'un évènement
# ###
sub _do_change_event
sub _change_event
{
my $event_type = shift;
......@@ -204,35 +204,25 @@ sub do_events
foreach my $hdls (@{$changed_events{$event->{'type'}}{lc $when}})
{
# TODO find $hdls way
my @params = ($conn, $event, $when);
if($Config::debug > 0)
{
if(defined($hdls->[1]))
if(defined($hdls->[1]) && $hdls->[1])
{
$hdls->[0]($hdls->[1], $conn, $event, $when);
unshift @params, $hdls->[1];
}
else
if($Config::debug > 0)
{
$hdls->[0]($conn, $event, $when);
}
$hdls->[0](@params);
}
else
{
local $@ = undef;
if(defined($hdls->[1]))
{
eval {
$hdls->[0]($hdls->[1], $conn, $event, $when);
$hdls->[0](@params);
};
}
else
{
eval {
$hdls->[0]($conn, $event, $when);
};
}
}
if(stop_propagation($event))
{
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter