diff options
| -rw-r--r-- | lib/Net/HTTP/Spore/Meta/Method.pm | 1 | ||||
| -rw-r--r-- | lib/Net/HTTP/Spore/Request.pm | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/Net/HTTP/Spore/Meta/Method.pm b/lib/Net/HTTP/Spore/Meta/Method.pm index 5c59dcf..2e55a89 100644 --- a/lib/Net/HTTP/Spore/Meta/Method.pm +++ b/lib/Net/HTTP/Spore/Meta/Method.pm @@ -210,6 +210,7 @@ sub wrap { 'spore.payload' => $payload, 'spore.errors' => *STDERR, 'spore.url_scheme' => $base_url->scheme, + 'spore.userinfo' => $base_url->userinfo, 'spore.formats' => $formats, }; diff --git a/lib/Net/HTTP/Spore/Request.pm b/lib/Net/HTTP/Spore/Request.pm index a401dcc..d65e0e9 100644 --- a/lib/Net/HTTP/Spore/Request.pm +++ b/lib/Net/HTTP/Spore/Request.pm @@ -202,11 +202,13 @@ sub _uri_base { my $uri = ( $env->{'spore.url_scheme'} || "http" ) . "://" + .($env->{'spore.userinfo'} . '@'|| '') . ( $env->{HTTP_HOST} || (( $env->{SERVER_NAME} || "" ) . ":" . ( $env->{SERVER_PORT} || 80 ) ) ) . ( $env->{SCRIPT_NAME} || '/' ); + return $uri; } |