use $^X, or tests will fail on hosts using a different installation of perl from one installed to /usr/bin/perl)

git-svn-id: http://svn.coderepos.org/share/lang/perl/Server-Starter/trunk@35597 d0d07461-0603-4401-acd4-de1884942a52

Author: kazuho

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Server::Starter.
 
+0.05  Tue Oct 13 20:30:00 2009
+	- use $^X in tests (or tests will fail on hosts using a different installation of perl from one installed to /usr/bin/perl)
+
 0.04  Fri Oct 09 19:25:00 2009
 	- signals received just after spawning worker process were dismissed (thanks to kazeburo for reporting and helping fix the problem)
 

lib/Server/Starter.pm

@@ -11,7 +11,7 @@ use Proc::Wait3;
 
 use Exporter qw(import);
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 our @EXPORT_OK = qw(start_server server_ports);
 
 sub start_server {

t/01-starter.t

@@ -13,7 +13,7 @@ test_tcp(
         my $port = shift;
         start_server(
             port => $port,
-            exec => [ qw(t/01-starter-echod.pl) ],
+            exec => [ $^X, qw(t/01-starter-echod.pl) ],
         );
     },
     client => sub {

t/02-startfail.t

@@ -11,7 +11,7 @@ test_tcp(
         my $port = shift;
         start_server(
             port     => $port,
-            exec     => [ qw(t/02-startfail-server.pl) ],
+            exec     => [ $^X, qw(t/02-startfail-server.pl) ],
         );
     },
     client => sub {