forked from pool/perl-HTML-FillInForm
Accepting request 327571 from home:hsk17:branches:devel:languages:perl
make it build with perl-5.22 OBS-URL: https://build.opensuse.org/request/show/327571 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-HTML-FillInForm?expand=0&rev=18
This commit is contained in:
committed by
Git OBS Bridge
parent
e91b209625
commit
65cc272940
@@ -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
|
Tue Apr 14 19:51:24 UTC 2015 - coolo@suse.com
|
||||||
|
|
||||||
|
@@ -27,12 +27,15 @@ Group: Development/Libraries/Perl
|
|||||||
Url: http://search.cpan.org/dist/HTML-FillInForm/
|
Url: http://search.cpan.org/dist/HTML-FillInForm/
|
||||||
Source0: http://www.cpan.org/authors/id/M/MA/MARKSTOS/%{cpan_name}-%{version}.tar.gz
|
Source0: http://www.cpan.org/authors/id/M/MA/MARKSTOS/%{cpan_name}-%{version}.tar.gz
|
||||||
Source1: cpanspec.yml
|
Source1: cpanspec.yml
|
||||||
|
Patch0: rt-100926.patch
|
||||||
BuildArch: noarch
|
BuildArch: noarch
|
||||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||||
BuildRequires: perl
|
BuildRequires: perl
|
||||||
BuildRequires: perl-macros
|
BuildRequires: perl-macros
|
||||||
|
BuildRequires: perl(CGI)
|
||||||
BuildRequires: perl(HTML::Parser) >= 3.26
|
BuildRequires: perl(HTML::Parser) >= 3.26
|
||||||
BuildRequires: perl(HTML::TokeParser) >= 3.26
|
BuildRequires: perl(HTML::TokeParser) >= 3.26
|
||||||
|
Requires: perl(CGI)
|
||||||
Requires: perl(HTML::Parser) >= 3.26
|
Requires: perl(HTML::Parser) >= 3.26
|
||||||
Requires: perl(HTML::TokeParser) >= 3.26
|
Requires: perl(HTML::TokeParser) >= 3.26
|
||||||
%{perl_requires}
|
%{perl_requires}
|
||||||
|
17
rt-100926.patch
Normal file
17
rt-100926.patch
Normal file
@@ -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;
|
||||||
|
|
Reference in New Issue
Block a user