X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestServer.pm;h=943dbb2184f1ea20c0c0597aacb48fe162d1ace5;hb=fa41164a1bf01eff244f1f3d9387d15dbb2e8e1c;hp=2ce73a2f9c764fb1762ead6ea4d529b65d11181a;hpb=8edb2b469643bd6e63e67d4846bafd3ac3927ba8;p=catagits%2FCatalyst-Engine-STOMP.git

diff --git a/t/lib/TestServer.pm b/t/lib/TestServer.pm
index 2ce73a2..943dbb2 100644
--- a/t/lib/TestServer.pm
+++ b/t/lib/TestServer.pm
@@ -12,6 +12,7 @@ use warnings;
 use Alien::ActiveMQ;
 use Test::More;
 use Exporter qw/import/;
+use FindBin;
 
 our $ACTIVEMQ_VERSION = '5.2.0';
 
@@ -42,7 +43,8 @@ sub start_server {
 
     $SIG{CHLD} = 'IGNORE';
     unless (fork()) {
-	    system("$^X -Ilib -Itestapp/lib testapp/script/stomptestapp_stomp.pl --oneshot");
+        my $libs = join(' ', map { "-I$_" } @INC);
+	    system("$^X $libs $FindBin::Bin/script/stomptestapp_stomp.pl --oneshot");
 	    exit 0;
     }
     print STDERR "server started, waiting for spinup...";