normalize hostname case when looking up credentials

[Andrew Pimlott]

Is there any reason not to normalize the hostname used for looking up
credentials, as passed to UserAgent->credentials?

It would also be terribly useful to allow undef as a wildcard.
Actually, I seem to remember reading some discussion about how to
generalize ->credentials.  What's the current thinking?

Andrew

--- ../LWP/UserAgent.pm 2003-12-31 10:58:09.000000000 -0800
+++ /home/andrew/UserAgent.pm   2004-03-31 09:38:49.000000000 -0800
@@ -542,7 +542,7 @@
 sub credentials
 {
     my($self, $netloc, $realm, $uid, $pass) = @_;
-    @{ $self->{'basic_authentication'}{$netloc}{$realm} } = ($uid, $pass);
+    @{ $self->{'basic_authentication'}{lc $netloc}{$realm} } = ($uid, $pass);
 }
 
 
@@ -551,7 +551,7 @@
     my($self, $realm, $uri, $proxy) = @_;
     return if $proxy;
 
-    my $host_port = $uri->host_port;
+    my $host_port = lc $uri->host_port;
     if (exists $self->{'basic_authentication'}{$host_port}{$realm}) {
        return @{ $self->{'basic_authentication'}{$host_port}{$realm} };
     }