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

diff --git a/t/lib/TestServer.pm b/t/lib/TestServer.pm
index 9061be2..943dbb2 100644
--- a/t/lib/TestServer.pm
+++ b/t/lib/TestServer.pm
@@ -43,7 +43,8 @@ sub start_server {
 
     $SIG{CHLD} = 'IGNORE';
     unless (fork()) {
-	    system("$^X -I$FindBin::Bin/lib $FindBin::Bin/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...";