Hello community,
here is the log from the commit of package perl-HTML-FillInForm for
openSUSE:Factory checked in at 2013-06-13 17:34:17
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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
2011-09-23 12:37:18.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-HTML-FillInForm.new/perl-HTML-FillInForm.changes
2013-06-13 17:34:18.000000000 +0200
@@ -1,0 +2,6 @@
+Mon Jun 10 12:12:33 UTC 2013 - [email protected]
+
+- updated to 2.11
+ * Updated tests so that they pass with Perl 5.18 (Mark Stosberg)
+
+-------------------------------------------------------------------
Old:
----
HTML-FillInForm-2.1.tar.gz
New:
----
HTML-FillInForm-2.11.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTML-FillInForm.spec ++++++
--- /var/tmp/diff_new_pack.4JM89e/_old 2013-06-13 17:34:19.000000000 +0200
+++ /var/tmp/diff_new_pack.4JM89e/_new 2013-06-13 17:34:19.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-HTML-FillInForm
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -15,53 +15,57 @@
# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
-# norootforbuild
-
Name: perl-HTML-FillInForm
-BuildRequires: perl-HTML-Parser
-BuildRequires: perl-macros
-Version: 2.1
-Release: 1
-Requires: perl-HTML-Parser >= 3.26
-AutoReqProv: on
-Group: Development/Libraries/Perl
+Version: 2.11
+Release: 0
+%define cpan_name HTML-FillInForm
+Summary: Populates HTML Forms with data.
License: GPL-1.0+ or Artistic-1.0
-Url: http://cpan.org/modules/by-module/HTML/
-Summary: Perl module HTML::FillInForm
-Source: HTML-FillInForm-%{version}.tar.gz
+Group: Development/Libraries/Perl
+Url: http://search.cpan.org/dist/HTML-FillInForm/
+Source:
http://www.cpan.org/authors/id/M/MA/MARKSTOS/%{cpan_name}-%{version}.tar.gz
+BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
+BuildRequires: perl
+BuildRequires: perl-macros
+BuildRequires: perl(HTML::Parser) >= 3.26
+BuildRequires: perl(HTML::TokeParser) >= 3.26
+#BuildRequires: perl(HTML::FillInForm)
+Requires: perl(HTML::Parser) >= 3.26
+Requires: perl(HTML::TokeParser) >= 3.26
%{perl_requires}
%description
-This module automatically inserts data from a previous HTML form into
-the HTML input and select tags. It is a subclass of HTML::Parser and
-uses it to parse the HTML and insert the values into the form tags.
+This module fills in an HTML form with data from a Perl data structure,
+allowing you to keep the HTML and Perl separate.
+
+Here are two common use cases:
+1. A user submits an HTML form without filling out a required field. You
+want to redisplay the form with all the previous data in it, to make it
+easy for the user to see and correct the error.
+2. You have just retrieved a record from a database and need to display it
+in an HTML form.
%prep
-%setup -n HTML-FillInForm-%{version}
+%setup -q -n %{cpan_name}-%{version}
%build
-perl Makefile.PL
-make %{?_smp_mflags}
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%{__make} %{?_smp_mflags}
%check
-make test
+%{__make} test
%install
%perl_make_install
%perl_process_packlist
+%perl_gen_filelist
-%clean
-rm -rf $RPM_BUILD_ROOT
-
-%files
-%defattr(-,root,root)
+%files -f %{name}.files
+%defattr(-,root,root,755)
%doc Changes README
-%doc %{_mandir}/man?/*
-%{perl_vendorlib}/HTML
-%{perl_vendorarch}/auto/HTML
%changelog
++++++ HTML-FillInForm-2.1.tar.gz -> HTML-FillInForm-2.11.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/Changes
new/HTML-FillInForm-2.11/Changes
--- old/HTML-FillInForm-2.1/Changes 2011-08-29 20:57:15.000000000 +0200
+++ new/HTML-FillInForm-2.11/Changes 2013-06-03 21:45:40.000000000 +0200
@@ -1,3 +1,8 @@
+
+2.11 - June 3rd, 2013
+
+Updated tests so that they pass with Perl 5.18 (Mark Stosberg)
+
2.1 - August 29th, 2011
Fixed disable_fields option (#52667 Dirk Braun, Goro Fuji)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/MANIFEST
new/HTML-FillInForm-2.11/MANIFEST
--- old/HTML-FillInForm-2.1/MANIFEST 2011-08-29 20:40:28.000000000 +0200
+++ new/HTML-FillInForm-2.11/MANIFEST 2013-06-03 22:02:46.000000000 +0200
@@ -32,3 +32,4 @@
t/25_select_absent_checkboxes.t
t/26_invalid_fields.t
t/data/form1.html
+META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/META.json
new/HTML-FillInForm-2.11/META.json
--- old/HTML-FillInForm-2.1/META.json 1970-01-01 01:00:00.000000000 +0100
+++ new/HTML-FillInForm-2.11/META.json 2013-06-03 22:02:46.000000000 +0200
@@ -0,0 +1,43 @@
+{
+ "abstract" : "unknown",
+ "author" : [
+ "unknown"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter
version 2.120921",
+ "license" : [
+ "unknown"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "HTML-FillInForm",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "HTML::Parser" : "3.26",
+ "HTML::TokeParser" : "3.26",
+ "warnings" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "2.11"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/META.yml
new/HTML-FillInForm-2.11/META.yml
--- old/HTML-FillInForm-2.1/META.yml 2011-08-29 21:10:35.000000000 +0200
+++ new/HTML-FillInForm-2.11/META.yml 2013-06-03 22:02:46.000000000 +0200
@@ -1,22 +1,24 @@
---- #YAML:1.0
-name: HTML-FillInForm
-version: 2.1
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+---
+abstract: unknown
+author:
+ - unknown
build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- HTML::Parser: 3.26
- warnings: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
+ ExtUtils::MakeMaker: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version
2.120921'
+license: unknown
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: HTML-FillInForm
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ HTML::Parser: 3.26
+ HTML::TokeParser: 3.26
+ warnings: 0
+version: 2.11
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/Makefile.PL
new/HTML-FillInForm-2.11/Makefile.PL
--- old/HTML-FillInForm-2.1/Makefile.PL 2005-10-13 21:58:53.000000000 +0200
+++ new/HTML-FillInForm-2.11/Makefile.PL 2013-06-03 21:44:38.000000000
+0200
@@ -6,6 +6,7 @@
'VERSION_FROM' => 'lib/HTML/FillInForm.pm', # finds $VERSION
'PREREQ_PM' => {
HTML::Parser => 3.26,
+ HTML::TokeParser => 3.26,
warnings => 0
},
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/lib/HTML/FillInForm.pm
new/HTML-FillInForm-2.11/lib/HTML/FillInForm.pm
--- old/HTML-FillInForm-2.1/lib/HTML/FillInForm.pm 2011-08-29
21:05:47.000000000 +0200
+++ new/HTML-FillInForm-2.11/lib/HTML/FillInForm.pm 2013-06-03
21:46:10.000000000 +0200
@@ -10,7 +10,7 @@
require 5.005;
use vars qw($VERSION @ISA);
-$VERSION = '2.1';
+$VERSION = '2.11';
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-FillInForm-2.1/t/26_invalid_fields.t
new/HTML-FillInForm-2.11/t/26_invalid_fields.t
--- old/HTML-FillInForm-2.1/t/26_invalid_fields.t 2011-08-29
19:32:08.000000000 +0200
+++ new/HTML-FillInForm-2.11/t/26_invalid_fields.t 2013-06-03
21:43:32.000000000 +0200
@@ -1,50 +1,76 @@
#!/usr/local/bin/perl
-# contributed by Trevor Schellhorn
-
use strict;
-use warnings FATAL => 'all';
+use warnings;
+
+use Test::More;
+
+use HTML::FillInForm;
+use HTML::TokeParser;
-use Test::More tests => 11;
+my $html = qq[<form><input type="text" name="one" value="all wrong"><input
type="text" name="two" class="existing" value="worse"><input type="text"
name="three" class="invalid" value="already bad"><select name="four"><option
value="1">Foo</option><option value="2">Boo</option></select><textarea
name="five"></textarea></form>];
-use_ok('HTML::FillInForm');
+{
+ my $result =
+ HTML::FillInForm->new->fill(scalarref => \$html,
+ fdat => {two => "new val 2"},
+ invalid_fields => ['one']);
+ my $p = HTML::TokeParser->new(\$result);
+
+ my $one = $p->get_tag('input')->[1];
+
+ is($one->{name}, 'one');
+ is($one->{class}, 'invalid');
+
+ my $two = $p->get_token->[2];
+ is($two->{name}, 'two');
+ isnt($two->{class},'invalid');
+}
+{
+ my $result = HTML::FillInForm->new->fill(scalarref => \$html,
+ fdat => {two => "new val
2"},
+ invalid_fields => ['one', 'two',
'three', 'four', 'five']);
+ my $p = HTML::TokeParser->new(\$result);
+
+ my $one = $p->get_tag('input')->[1];
+ is($one->{name}, 'one');
+ is($one->{class}, 'invalid');
+
+ my $two = $p->get_token->[2];
+ is($two->{name}, 'two');
+ is($two->{class},'existing invalid');
+
+ my $three = $p->get_token->[2];
+ is($three->{name},'three');
+ is($three->{class},'invalid');
+
+ my $four = $p->get_token->[2];
+ is($four->{name}, 'four');
+ is($four->{class}, 'invalid');
+
+ my $five = $p->get_tag('textarea')->[1];
+
+ is($five->{name},'five');
+ is($five->{class},'invalid');
+}
+{
+ my $result = HTML::FillInForm->new->fill(scalarref => \$html,
+ fdat => {two => "new val
2"},
+ invalid_fields => ['one', 'three'],
+ invalid_class => "funky");
+ my $p = HTML::TokeParser->new(\$result);
+
+ my $one = $p->get_tag('input')->[1];
+ is($one->{name}, 'one');
+ is($one->{class}, 'funky');
+
+ my $two = $p->get_token->[2];
+ is($two->{name}, 'two');
+ is($two->{class},'existing');
+
+ my $three = $p->get_token->[2];
+ is($three->{name},'three');
+ is($three->{class},'invalid funky');
+}
-my $html = qq[
-<form>
-<input type="text" name="one" value="all wrong">
-<input type="text" name="two" class="existing" value="worse">
-<input type="text" name="three" class="invalid" value="already bad">
-<select name="four">
- <option value="1">Foo</option>
- <option value="2">Boo</option>
-</select>
-<textarea name="five"></textarea>
-</form>
-];
-
-my $result =
- HTML::FillInForm->new->fill(scalarref => \$html,
- fdat => {two => "new val 2"},
- invalid_fields => ['one']);
-
-like($result, qr/<input[^>]+name="one"[^>]+class="invalid"/);
-unlike($result, qr/<input[^>]+name="two"[^>]+class="invalid"/);
-
-$result = HTML::FillInForm->new->fill(scalarref => \$html,
- fdat => {two => "new val 2"},
- invalid_fields => ['one', 'two',
'three', 'four', 'five']);
-
-like($result, qr/<input[^>]+name="one"[^>]+class="invalid"/);
-like($result, qr/<input[^>]+name="two"[^>]+class="existing invalid"/);
-like($result, qr/<input[^>]+name="three"[^>]+class="invalid"/);
-like($result, qr/<select[^>]+name="four"[^>]+class="invalid"/);
-like($result, qr/<textarea[^>]+name="five"[^>]+class="invalid"/);
-
-$result = HTML::FillInForm->new->fill(scalarref => \$html,
- fdat => {two => "new val 2"},
- invalid_fields => ['one', 'three'],
- invalid_class => "funky");
-
-like($result, qr/<input[^>]+name="one"[^>]+class="funky"/);
-like($result, qr/<input[^>]+name="two"[^>]+class="existing"/);
-like($result, qr/<input[^>]+name="three"[^>]+class="invalid funky"/);
+done_testing();
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
