added more comments for tracking bug

PerlGameDev · Sep 6, 2013 · e422ed6 · e422ed6
1 parent 3507b2d
commit e422ed6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/SDLx/Controller.pm b/lib/SDLx/Controller.pm
@@ -200,7 +200,9 @@ sub _event {
 	warn SDL::get_error();
 
 	SDL::Events::pump_events();
+	warn "Event pumping event " . Dumper($event);
 	while ( SDL::Events::poll_event($event) ) {
+		warn "Event polling event" . Dumper($event);
 		$stop_handler->( $event, $self ) if $stop_handler;
 		foreach my $event_handler (@$event_handlers) {
 			next unless $event_handler;