diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm index 5776f33693..6eb33c71a9 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm @@ -3,7 +3,7 @@ package HTTP::Request; use strict; use warnings; -our $VERSION = '6.27'; +our $VERSION = '6.36'; use base 'HTTP::Message'; @@ -96,9 +96,9 @@ sub uri_canonical my $uri = $self->{_uri}; if (defined (my $canon = $self->{_uri_canonical})) { - # early bailout if these are the exact same string; try to use - # the cheapest comparison method possible - return $canon if $$canon eq $$uri; + # early bailout if these are the exact same string; + # rely on stringification of the URI objects + return $canon if $canon eq $uri; } # otherwise we need to refresh the memoized value @@ -155,7 +155,7 @@ HTTP::Request - HTTP style request message =head1 VERSION -version 6.27 +version 6.36 =head1 SYNOPSIS |