diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/HTTP/Spore/Middleware/Redirection.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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{ |