Andrew Pimlott wrote: > 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?
I don't understand what are you trying to do. What's MSIE/Mozilla doing in the same scenario? Is it also normalizing the hostname? Juan > --- ../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} }; > }