From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 23:15:18 +0000 (-0500)
Subject: Look for specific active event
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8815fc2a0798b47e9caf7171d8ae5b1eff6f67fa;p=sdlgit%2FSDL_perl.git

Look for specific active event
---

diff --git a/t/core_events.t b/t/core_events.t
index 9f207f2..bdaade0 100644
--- 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
--- 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]";