summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm
index b12d35008f..b51d19483a 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTTP/Config.pm
@@ -3,7 +3,7 @@ package HTTP::Config;
use strict;
use warnings;
-our $VERSION = '6.27';
+our $VERSION = '6.36';
use URI;
@@ -155,8 +155,12 @@ my %MATCH = (
m_header__ => sub {
my($v, $k, $uri, $request, $response) = @_;
return unless $request;
- return 1 if $request->header($k) eq $v;
- return 1 if $response && $response->header($k) eq $v;
+ my $req_header = $request->header($k);
+ return 1 if defined($req_header) && $req_header eq $v;
+ if ($response) {
+ my $res_header = $response->header($k);
+ return 1 if defined($res_header) && $res_header eq $v;
+ }
return 0;
},
m_response_attr__ => sub {
@@ -245,7 +249,7 @@ HTTP::Config - Configuration for request and response objects
=head1 VERSION
-version 6.27
+version 6.36
=head1 SYNOPSIS