use strict;
use base 'Catalyst::Engine::Test';
-use IO::Socket qw(AF_INET SOCK_STREAM SOMAXCONN);
+use IO::Socket qw(AF_INET INADDR_ANY SOCK_STREAM SOMAXCONN);
=head1 NAME
while ( my $request = $connection->get_request ) {
$request->uri->scheme('http'); # Force URI::http
- $request->uri->host( $base->host );
+ $request->uri->host( $request->header('Host') );
$request->uri->port( $base->port );
my $lwp = Catalyst::Engine::Test::LWP->new(
$c->lwp->response->code( $c->response->status || 200 );
for my $name ( $c->response->headers->header_field_names ) {
- $c->lwp->response->header( $name => $c->response->header($name) );
+ $c->lwp->response->push_header( $name => [ $c->response->header($name) ] );
}
while ( my ( $name, $cookie ) = each %{ $c->response->cookies } ) {
}
my $path = $c->lwp->request->uri->path || '/';
+ $path =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
$path =~ s/^\///;
$c->req->base($base);