my ($out, $err) = map { "$tmpdir/std$_.log" } qw(out err);
my $cmd = [ qw(-httpd -W0), "--stdout=$out", "--stderr=$err" ];
my $td = start_script($cmd, undef, { 3 => $sock });
- my ($h, $p) = ($sock->sockhost, $sock->sockport);
-
+ my ($h, $p) = tcp_host_port($sock);
local $ENV{PLACK_TEST_EXTERNALSERVER_URI} = "http://$h:$p";
while (($ibx_name, $urls) = each %$todo) {
Plack::Test::ExternalServer::test_psgi(client => $client);