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