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