commit perl-HTML-FillInForm for openSUSE:Factory

[h_root]

Hello community,

here is the log from the commit of package perl-HTML-FillInForm for 
openSUSE:Factory checked in at 2015-08-29 20:04:46
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-HTML-FillInForm (Old)
 and      /work/SRC/openSUSE:Factory/.perl-HTML-FillInForm.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-HTML-FillInForm"

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-HTML-FillInForm/perl-HTML-FillInForm.changes    
    2015-04-16 14:13:56.000000000 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-HTML-FillInForm.new/perl-HTML-FillInForm.changes
   2015-08-29 20:04:47.000000000 +0200
@@ -1,0 +2,8 @@
+Thu Aug 27 13:19:06 UTC 2015 - h...@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
+
+-------------------------------------------------------------------

New:
----
  rt-100926.patch

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-HTML-FillInForm.spec ++++++
--- /var/tmp/diff_new_pack.qdaqVa/_old  2015-08-29 20:04:47.000000000 +0200
+++ /var/tmp/diff_new_pack.qdaqVa/_new  2015-08-29 20:04:47.000000000 +0200
@@ -27,12 +27,15 @@
 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}

++++++ rt-100926.patch ++++++
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;