ignore uninitialized warnings here (RT#105787)

Author: karenetheridge

Changes

@@ -1,5 +1,10 @@
 Revision history for HTTP-Message
 
+
+    - Resolve new uninitialized warning from
+      HTTP::Request::Common::request_type_with_data (RT#105787)
+
+
 6.07   2015-07-09
 
     - Allow subclasses to override the class of parts - it used to be

MANIFEST

@@ -26,6 +26,7 @@ t/message-old.t
 t/message-parts.t
 t/message.t
 t/request.t
+t/request_type_with_data.t
 t/response.t
 t/status-old.t
 t/status.t

lib/HTTP/Request/Common.pm

@@ -138,6 +138,7 @@ sub form_data   # RFC1867
     while (my ($k,$v) = splice(@data, 0, 2)) {
 	if (!ref($v)) {
 	    $k =~ s/([\\\"])/\\$1/g;  # escape quotes and backslashes
+            no warnings 'uninitialized';
 	    push(@parts,
 		 qq(Content-Disposition: form-data; name="$k"$CRLF$CRLF$v));
 	}

t/request_type_with_data.t

@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::More 0.88;
+use HTTP::Request::Common;
+
+# I'd use Test::Warnings here, but let's respect our downstream consumers and
+# not force that prereq on them
+my @warnings;
+$SIG{__WARN__} = sub { push @warnings, grep { length } @_ };
+
+my $request = HTTP::Request::Common::request_type_with_data(
+    'POST' => 'https://localhost/',
+    'content_type' => 'multipart/form-data; boundary=----1234',
+    'content' => [ a => 1, b => undef ],
+);
+
+isa_ok($request, 'HTTP::Request');
+is(scalar(@warnings), 0, 'no warnings')
+    or diag('got warnings: ', explain(\@warnings));
+
+done_testing;