diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Net/HTTP/Spore/Request.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Net/HTTP/Spore/Request.pm b/lib/Net/HTTP/Spore/Request.pm index d65e0e9..3551e12 100644 --- a/lib/Net/HTTP/Spore/Request.pm +++ b/lib/Net/HTTP/Spore/Request.pm @@ -202,7 +202,11 @@ sub _uri_base { my $uri = ( $env->{'spore.url_scheme'} || "http" ) . "://" - .($env->{'spore.userinfo'} . '@'|| '') + . ( + defined $env->{'spore.userinfo'} + ? $env->{'spore.userinfo'} . '@' + : '' + ) . ( $env->{HTTP_HOST} || (( $env->{SERVER_NAME} || "" ) . ":" |