From cbc4dd479d7ef5bb6288b44678bd1c03a80eede6 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 1 Nov 2010 17:24:26 +0100 Subject: use new redirect port --- lib/Net/HTTP/Spore/Middleware/Redirection.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/Net/HTTP/Spore/Middleware') diff --git a/lib/Net/HTTP/Spore/Middleware/Redirection.pm b/lib/Net/HTTP/Spore/Middleware/Redirection.pm index 07046d8..d80c47c 100644 --- a/lib/Net/HTTP/Spore/Middleware/Redirection.pm +++ b/lib/Net/HTTP/Spore/Middleware/Redirection.pm @@ -28,8 +28,10 @@ sub call { ) { my $uri = URI->new($location); - $req->env->{HTTP_HOST} = $uri->host; - $req->env->{PATH_INFO} = $uri->path; + $req->env->{HTTP_HOST} = $uri->host; + $req->env->{PATH_INFO} = $uri->path; + $req->env->{SERVER_PORT} = $uri->port; + $req->env->{SERVER_NAME} = $uri->host; $res = $self->_request($req); $nredirect++; }else{ -- cgit 1.4.1