Removed the warns from the lib file

PerlGameDev · Sep 6, 2013 · 45750b9 · wchristian · Mar 13, 2015 · dod38fr
1 parent 4b78b32
commit 45750b9
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 8 deletions.
diff --git a/lib/SDLx/Controller.pm b/lib/SDLx/Controller.pm
@@ -196,13 +196,7 @@ sub _event {
 	my $stop_handler = $_stop_handler{$ref};
 	my $event        = $_event{$ref};
 
-	warn "Event loop runs";
-	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;

diff --git a/t/ia64_armhf_push_event.t b/t/ia64_armhf_push_event.t
@@ -11,7 +11,7 @@ use SDL::TestTool;
 my $videodriver = $ENV{SDL_VIDEODRIVER};
 $ENV{SDL_VIDEODRIVER} = 'dummy';
 
-my $dummy = SDLx::App->new( init => SDL_INIT_EVERYTHING );
+my $dummy = SDLx::App->new( init => SDL_INIT_VIDEO );
 
 my $event = SDL::Event->new();
 

diff --git a/t/sdlx_controller_interface.t b/t/sdlx_controller_interface.t
@@ -9,6 +9,7 @@ use SDLx::Controller::Interface;
 use lib 't/lib';
 use SDL::TestTool;
 use Data::Dumper;
+use SDL::Events;
 
 my $videodriver = $ENV{SDL_VIDEODRIVER};
 $ENV{SDL_VIDEODRIVER} = 'dummy';
@@ -79,7 +80,7 @@ my $event_called = 0;
 require SDL::Event;
 require SDL::Events;
 my $eve = SDL::Event->new();
-
+   $eve->type(SDL_USEREVENT);
 SDL::Events::push_event($eve);
 my $counts = [ 0, 0, 0 ];