From 87d71e434fbdb08a3f59d80e9eb039d111e698c3 Mon Sep 17 00:00:00 2001 From: TC <tc.arise@giboulees.net> Date: Fri, 23 May 2014 19:02:32 +0000 Subject: [PATCH] Fix debug printing --- Core/EventHandler.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Core/EventHandler.pm b/Core/EventHandler.pm index 8529442..6b8fe37 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; } -- GitLab