summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Request.pm
diff options
context:
space:
mode:
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.pm10
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