Un peu moins de debug, sinon les logs se remplissent trop vite

Core/EventHandler.pm

@@ -157,6 +157,8 @@ sub dispatch_event
 {
 	my ($conn, $event) = @_;
 	
+	$::logger->debug("Dispatching event $event...");
+	
 	# Events enregistrés dans la partie 'before'
 	&do_events($conn, $event, 'before');
 	
@@ -177,6 +179,8 @@ sub dispatch_event
 	
 	# Events enregistrés dans la partie 'after'
 	&do_events($conn, $event, 'after');
+	
+	$::logger->debug("$event dispatched.");
 } # Fin dispatch_event
 
 
@@ -196,13 +200,7 @@ sub do_events
 	
 	if(defined($changed_events{$event->{'type'}}))
 	{
-		$::logger->debug("Event '".$event->{'type'}."', processing '$when'...");
-		unless(@{$changed_events{$event->{'type'}}{lc $when}})
-		{
-			$::logger->debug("  No registered event, nothing to do.");
-			return;
-		}
-		
+		return unless(@{$changed_events{$event->{'type'}}{lc $when}});
 		
 		foreach my $hdls (@{$changed_events{$event->{'type'}}{lc $when}})
 		{
@@ -238,12 +236,10 @@ sub do_events
 			
 			if(stop_propagation($event))
 			{
-				$::logger->debug("  ... Stopping propagation of the event");
+				$::logger->debug("  ... Stopping propagation of the event for $when");
 				last;
 			}
 		}
-		
-		$::logger->debug("  Event '".$event->{'type'}."', '$when', done.");
 	}
 } # Fin do_events