$request = Catalyst::Utils::request($request);
+ $request->header(
+ 'Host' => sprintf( '%s:%d', $request->uri->host, $request->uri->port )
+ );
+
# We emulate CGI
local %ENV = (
PATH_INFO => $request->uri->path || '',
unless ( ref $request eq 'HTTP::Request' ) {
$request = HTTP::Request->new( 'GET', $request );
}
-
- $request->header(
- 'Host' => sprintf( '%s:%d', $request->uri->host, $request->uri->port )
- );
return $request;
}