Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

use exec list

  • Loading branch information...
commit 83c567a55c0e4c1796e1f6346a5fdf60a0b0db41 1 parent 434e23f
@miyagawa authored
Showing with 3 additions and 3 deletions.
  1. +1 −1  t/findbin.t
  2. +2 −2 t/rand.t
View
2  t/findbin.t
@@ -6,7 +6,7 @@ use Test::More;
my $s = Test::TCP->new(
code => sub {
my $port = shift;
- exec "$^X bin/starman --port $port --max-requests=1 --workers=1 '$FindBin::Bin/findbin.psgi'";
+ exec $^X, "bin/starman", "--port", $port, "--max-requests=1", "--workers=1", "t/findbin.psgi";
},
);
View
4 t/rand.t
@@ -4,12 +4,12 @@ use FindBin;
use Test::More;
for (1..2) { # preload, non-preload
- my $preload = $_ == 1 ? "--preload-app" : "";
+ my @preload = $_ == 1 ? ("--preload-app") : ();
my $s = Test::TCP->new(
code => sub {
my $port = shift;
- exec "$^X bin/starman $preload --port $port --max-requests=1 --workers=1 '$FindBin::Bin/rand.psgi'";
+ exec $^X, "bin/starman", @preload, "--port", $port, "--max-requests=1", "--workers=1", "t/rand.psgi";
},
);
Please sign in to comment.
Something went wrong with that request. Please try again.