Look for specific active event

diff --git a/t/core_events.t b/t/core_events.t
index 9f207f2..bdaade0 100644 (file)
--- a/t/core_events.t
+++ b/t/core_events.t
@@ -77,7 +77,7 @@ SDL::Events::pump_events();
 
 my $ret =  SDL::Events::poll_event($event);
 
-if ($event->type == SDL_ACTIVEEVENT)
+if ($event->type == SDL_ACTIVEEVENT && $event->active_gain == 1 && $event->active_state == SDL_APPINPUTFOCUS )
  {
         $got_event = 1;
         last;

diff --git a/tools/smokeNsend.pl b/tools/smokeNsend.pl
index 8b180cb..6967c7f 100755 (executable)
--- a/tools/smokeNsend.pl
+++ b/tools/smokeNsend.pl
@@ -5,4 +5,4 @@ system split ' ', "git pull origin $ARGV[2]" if $ARGV[2];
 system( 'perl',  'Build.PL');
 system( 'perl', 'Build');
 system split ' ', 'prove -l -b -m --archive sdl.tar.gz';
-system split ' ', "perl tools/smolder_smoke_signal --server sdlperl.ath.cx:8080  --username $ARGV[0] --password $ARGV[1] --file sdl.tar.gz --project SDL --architecture $] --platform $^O $ARGV[3]";
+system split ' ', "perl tools/smolder_smoke_signal --server sdlperl.ath.cx --port 8080  --username $ARGV[0] --password $ARGV[1] --file sdl.tar.gz --project SDL --architecture $] --platform $^O $ARGV[3]";