fix uninitialized warning when removing an undef key in HTTP::Config (RT#105929)

Author: karenetheridge

Changes

@@ -3,6 +3,8 @@ Revision history for HTTP-Message
 
     - converted all uses of Test.pm to Test::More
 
+    - fix uninitialized warning in HTTP::Config (RT#105929)
+
 
 6.08   2015-07-10
     - Resolve new uninitialized warning from

lib/HTTP/Config.pm

@@ -40,6 +40,7 @@ sub find2 {
  ITEM:
     for my $item (@$self) {
         for my $k (keys %spec) {
+            no warnings 'uninitialized';
             if (!exists $item->{$k} || $spec{$k} ne $item->{$k}) {
                 push(@rest, $item);
                 next ITEM;

t/http-config.t

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-plan tests => 14;
+plan tests => 16;
 
 use HTTP::Config;
 
@@ -69,3 +69,17 @@ is(j($conf->matching_items($response)), "xhtml|html|any");
 
 $response->content_type("text/html");
 is(j($conf->matching_items($response)), "HTML|html|text|any");
+
+
+{
+    my @warnings;
+    local $SIG{__WARN__} = sub { push @warnings, grep { length } @_ };
+
+    my $conf = HTTP::Config->new;
+    $conf->add(owner => undef, callback => sub { 'bleah' });
+    $conf->remove(owner => undef);
+
+    ok(($conf->empty), 'found and removed the config entry');
+    is(scalar(@warnings), 0, 'no warnings')
+        or diag('got warnings: ', explain(\@warnings));
+}