perl/perl-HTML-FillInForm
SHA256
8
0
Fork 0
forked from pool/perl-HTML-FillInForm
Code Pull Requests Activity

Accepting request 327571 from home:hsk17:branches:devel:languages:perl

Browse Source 
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:
Stephan Kulow
2015-08-27 14:22:00 +00:00
committed by Git OBS Bridge
parent e91b209625
commit 65cc272940
3 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
perl-HTML-FillInForm.changes
View File

@@ -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

3
perl-HTML-FillInForm.spec
View File

@@ -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}

17
rt-100926.patch Normal file
View 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;