[perl-HTTP-Request-Params] Correct Email::MIME usage

[Petr Pisar]

commit ff829d867c314bafe84a862a4cdda1b26776a00f
Author: Petr Písař <ppisar at redhat.com>
Date:   Wed Apr 2 09:35:09 2014 +0200

    Correct Email::MIME usage

 HTTP-Request-Params-1.01-RT86635.patch |   28 ++++++++++++++++++++++++++++
 perl-HTTP-Request-Params.spec          |    9 ++++++++-
 2 files changed, 36 insertions(+), 1 deletions(-)
---
diff --git a/HTTP-Request-Params-1.01-RT86635.patch b/HTTP-Request-Params-1.01-RT86635.patch
new file mode 100644
index 0000000..ca51c47
--- /dev/null
+++ b/HTTP-Request-Params-1.01-RT86635.patch
@@ -0,0 +1,28 @@
+From d2f2dd3cf76d4e33e8d75e5b2ee1de3a37565a9e Mon Sep 17 00:00:00 2001
+From: Slaven Rezic <slaven at rezic.de>
+Date: Wed, 3 Jul 2013 14:16:43 +0200
+Subject: [PATCH] added missing "use Email::MIME"
+
+It seems that with newer Email-MIME distribution there was
+some refactoring, so including Email::MIME::Modifier and/or
+Email::MIME::ContentType does not trigger loading of
+Email::MIME anymore.
+---
+ lib/HTTP/Request/Params.pm |    1 +
+ 1 files changed, 1 insertions(+), 0 deletions(-)
+
+diff --git a/lib/HTTP/Request/Params.pm b/lib/HTTP/Request/Params.pm
+index f5e6e5f..b7e2adb 100644
+--- a/lib/HTTP/Request/Params.pm
++++ b/lib/HTTP/Request/Params.pm
+@@ -22,6 +22,7 @@ use vars qw[$VERSION];
+ $VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1];
+ 
+ use CGI;
++use Email::MIME;
+ use Email::MIME::Modifier;
+ use Email::MIME::ContentType qw[parse_content_type];
+ use HTTP::Request;
+-- 
+1.7.2.5
+
diff --git a/perl-HTTP-Request-Params.spec b/perl-HTTP-Request-Params.spec
index 2c462ea..bad9090 100644
--- a/perl-HTTP-Request-Params.spec
+++ b/perl-HTTP-Request-Params.spec
@@ -1,12 +1,14 @@
 Name:           perl-HTTP-Request-Params
 Version:        1.01
-Release:        15%{?dist}
+Release:        16%{?dist}
 Summary:        Retrieve GET/POST Parameters from HTTP Requests
 
 Group:          Development/Libraries
 License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/HTTP-Request-Params/
 Source0:        http://www.cpan.org/authors/id/C/CW/CWEST/HTTP-Request-Params-%{version}.tar.gz
+# Correct Email::MIME usage, CPAN RT#86635, bug #1083392
+Patch0:         HTTP-Request-Params-1.01-RT86635.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch:      noarch
@@ -15,6 +17,7 @@ BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(Test::More)
 BuildRequires:  perl(Class::Accessor::Fast) >= 0.19
 BuildRequires:  perl(HTTP::Request) >= 1.40
+BuildRequires:  perl(Email::MIME)
 BuildRequires:  perl(Email::MIME::Modifier) >= 1.42
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 Requires:       perl(Class::Accessor::Fast) >= 0.19
@@ -26,6 +29,7 @@ incoming query parameters.
 
 %prep
 %setup -q -n HTTP-Request-Params-%{version}
+%patch0 -p1
 
 
 %build
@@ -57,6 +61,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Wed Apr 02 2014 Petr Pisar <ppisar at redhat.com> - 1.01-16
+- Correct Email::MIME usage (bug #1083392)
+
 * Sat Aug 03 2013 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 1.01-15
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild