Signed-off-by: Philippe Bruhat (BooK) <b...@cpan.org>
---
 lib/LWP/UserAgent.pm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm
index a54782c..7757126 100644
--- a/lib/LWP/UserAgent.pm
+++ b/lib/LWP/UserAgent.pm
@@ -572,6 +572,7 @@ sub get_basic_credentials
 {
     my($self, $realm, $uri, $proxy) = @_;
     return if $proxy;
+    return $uri->userinfo if $uri->can('userinfo') && $uri->userinfo;
     return $self->credentials($uri->host_port, $realm);
 }
 
-- 
1.6.0.3.517.g759a

Reply via email to