From cdf0c1f28306bf7f69ab4c9e05adade7d0b24edc Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 11 Jul 2011 10:40:39 +0200
Subject: userinfo if available

Signed-off-by: franck cuny <franck@lumberjaph.net>
---
 lib/Net/HTTP/Spore/Request.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP')

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} || "" ) . ":"
-- 
cgit 1.4.1