diff --git a/Core/EventHandler.pm b/Core/EventHandler.pm index 8529442440b735e984d39f4ca81d69d03cf6f348..6b8fe37405c19a773931a50a23d4af657953ee87 100644 --- a/Core/EventHandler.pm +++ b/Core/EventHandler.pm @@ -157,7 +157,8 @@ sub dispatch_event { my ($conn, $event) = @_; - $::logger->debug("Dispatching event $event..."); + my $type = $event->{'type'}; + $::logger->debug("Dispatching event $type..."); # Events enregistrés dans la partie 'before' &do_events($conn, $event, 'before'); @@ -167,11 +168,11 @@ sub dispatch_event # autorisé if(not prevent_default($event)) { - if(defined($changed_events{$event->{'type'}}{'default'})) + if(defined($changed_events{$type}{'default'})) { no strict 'refs'; - &{$changed_events{$event->{'type'}}{'default'}}($conn, $event); + &{$changed_events{$type}{'default'}}($conn, $event); use strict; }