libwww-perl#62 fix warnings during HTTP::Config->match

Changes

@@ -2,6 +2,7 @@ Revision history for HTTP-Message
 
 {{$NEXT}}
     - Clean up backcompat code (GH#148) (Dan Book)
+    - fix warnings during HTTP::Config->match #62 (GH#152) (Viťas Strádal)
 
 6.26      2020-09-10 02:34:25Z
     - Update comment which explains in which RFC 451 is defined (GH#143) (Olaf

lib/HTTP/Config.pm

@@ -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 {

t/http-config.t

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-plan tests => 28;
+plan tests => 30;
 
 use HTTP::Config;
 
@@ -103,4 +103,13 @@ is(j($conf->matching_items($response)), "HTML|html|text|any");
     ok(($conf->empty), 'found and removed the config entry');
     is(scalar(@warnings), 0, 'no warnings')
         or diag('got warnings: ', explain(\@warnings));
+
+    @warnings = ();
+    $conf->add_item("bond", m_header__user_agent => 'james/0.0.7');
+    my $request2 = HTTP::Request->new(HEAD => "http://www.example.com/foo/bar");
+    is(j($conf->matching_items($request2)), '');
+
+    is(scalar(@warnings), 0, 'no warnings')
+        or diag('got warnings: ', explain(\@warnings));
+
 }