diff --git a/perl-HTML-FillInForm.changes b/perl-HTML-FillInForm.changes
index 44fc77e..53fabed 100644
--- a/perl-HTML-FillInForm.changes
+++ b/perl-HTML-FillInForm.changes
@@ -1,3 +1,11 @@
+-------------------------------------------------------------------
+Thu Aug 27 13:19:06 UTC 2015 - hsk@imb-jena.de
+
+- add CGI to Requires:, BuildRequires:, as that module is not in
+ perl core since perl 5.22
+- rt-100926.patch: patch from rt.cpan.org, #100926 / github, pr #9,
+ to avoid security warning
+
-------------------------------------------------------------------
Tue Apr 14 19:51:24 UTC 2015 - coolo@suse.com
diff --git a/perl-HTML-FillInForm.spec b/perl-HTML-FillInForm.spec
index 25c9574..09aac4d 100644
--- a/perl-HTML-FillInForm.spec
+++ b/perl-HTML-FillInForm.spec
@@ -27,12 +27,15 @@ Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/HTML-FillInForm/
Source0: http://www.cpan.org/authors/id/M/MA/MARKSTOS/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
+Patch0: rt-100926.patch
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+BuildRequires: perl(CGI)
BuildRequires: perl(HTML::Parser) >= 3.26
BuildRequires: perl(HTML::TokeParser) >= 3.26
+Requires: perl(CGI)
Requires: perl(HTML::Parser) >= 3.26
Requires: perl(HTML::TokeParser) >= 3.26
%{perl_requires}
diff --git a/rt-100926.patch b/rt-100926.patch
new file mode 100644
index 0000000..b388840
--- /dev/null
+++ b/rt-100926.patch
@@ -0,0 +1,17 @@
+diff -ur a/HTML-FillInForm-2.21/lib/HTML/FillInForm.pm b/HTML-FillInForm-2.21/lib/HTML/FillInForm.pm
+--- a/HTML-FillInForm-2.21/lib/HTML/FillInForm.pm 2014-08-14 17:21:43.000000000 +0200
++++ b/HTML-FillInForm-2.21/lib/HTML/FillInForm.pm 2015-08-27 15:10:07.462905794 +0200
+@@ -424,7 +424,12 @@
+ # traverse the list in reverse order for backwards compatibility
+ # with the previous implementation.
+ for my $o (reverse @{$self->{objects}}) {
+- my @v = $o->param($param);
++ my @v;
++ if ($o->can('multi_param')) {
++ @v = $o->multi_param($param);
++ } else {
++ @v = $o->param($param);
++ }
+
+ next unless @v;
+