Hello community, here is the log from the commit of package perl-HTML-Form for openSUSE:Factory checked in at 2012-03-01 17:23:13 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTML-Form (Old) and /work/SRC/openSUSE:Factory/.perl-HTML-Form.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTML-Form", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTML-Form/perl-HTML-Form.changes 2011-09-23 12:37:18.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTML-Form.new/perl-HTML-Form.changes 2012-03-01 17:23:38.000000000 +0100 @@ -1,0 +2,7 @@ +Mon Feb 20 10:48:17 UTC 2012 - [email protected] + +- updated to 6.01 + Don't pick up label text from textarea [RT#72925] + Restore perl-5.8.1 compatiblity. + +------------------------------------------------------------------- Old: ---- HTML-Form-6.00.tar.gz New: ---- HTML-Form-6.01.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTML-Form.spec ++++++ --- /var/tmp/diff_new_pack.jyDVtc/_old 2012-03-01 17:23:40.000000000 +0100 +++ /var/tmp/diff_new_pack.jyDVtc/_new 2012-03-01 17:23:40.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-HTML-Form # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 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 @@ -16,29 +16,29 @@ # - Name: perl-HTML-Form -Version: 6.00 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 6.01 +Release: 0 %define cpan_name HTML-Form Summary: Class that represents an HTML form element -Url: http://search.cpan.org/dist/HTML-Form/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/G/GA/GAAS/HTML-Form-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/HTML-Form/ +Source: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch +BuildRoot: %{_tmppath}/%{name}-%{version}-build +BuildRequires: perl +BuildRequires: perl-macros BuildRequires: perl(HTML::TokeParser) BuildRequires: perl(HTTP::Request) >= 6 BuildRequires: perl(HTTP::Request::Common) >= 6 BuildRequires: perl(URI) >= 1.10 -BuildRequires: perl -BuildRequires: perl-macros +#BuildRequires: perl(HTML::Form) +#BuildRequires: perl(HTTP::Response) Requires: perl(HTML::TokeParser) Requires: perl(HTTP::Request) >= 6 Requires: perl(HTTP::Request::Common) >= 6 Requires: perl(URI) >= 1.10 -BuildRoot: %{_tmppath}/%{name}-%{version}-build -BuildArch: noarch %{perl_requires} %description @@ -48,7 +48,6 @@ be tweaked and it can then be asked to provide 'HTTP::Request' objects that can be passed to the request() method of 'LWP::UserAgent'. - %prep %setup -q -n %{cpan_name}-%{version} @@ -64,11 +63,8 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files -%defattr(644,root,root,755) +%defattr(-,root,root,755) %doc Changes README %changelog ++++++ HTML-Form-6.00.tar.gz -> HTML-Form-6.01.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.00/Changes new/HTML-Form-6.01/Changes --- old/HTML-Form-6.00/Changes 2011-02-27 20:46:36.000000000 +0100 +++ new/HTML-Form-6.01/Changes 2012-02-18 14:38:00.000000000 +0100 @@ -1,4 +1,14 @@ _______________________________________________________________________________ +2012-02-18 HTML-Form 6.01 + +Don't pick up label text from textarea [RT#72925] + +Restore perl-5.8.1 compatiblity. + + + + +_______________________________________________________________________________ 2011-02-27 HTML-Form 6.00 Initial release of HTML-Form as a separate distribution. There are no code diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.00/MANIFEST new/HTML-Form-6.01/MANIFEST --- old/HTML-Form-6.00/MANIFEST 2011-02-27 20:47:37.000000000 +0100 +++ new/HTML-Form-6.01/MANIFEST 2012-02-18 14:38:39.000000000 +0100 @@ -3,6 +3,7 @@ Makefile.PL MANIFEST This list of files README +t/form-label.t t/form-maxlength.t t/form-multi-select.t t/form-param.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.00/META.yml new/HTML-Form-6.01/META.yml --- old/HTML-Form-6.00/META.yml 2011-02-27 20:47:37.000000000 +0100 +++ new/HTML-Form-6.01/META.yml 2012-02-18 14:38:39.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: HTML-Form -version: 6.00 +version: 6.01 abstract: Class that represents an HTML form element author: - Gisle Aas <[email protected]> @@ -15,16 +15,16 @@ HTML::TokeParser: 0 HTTP::Request: 6 HTTP::Request::Common: 6 - perl: 5.008008 + perl: 5.008001 URI: 1.10 resources: MailingList: mailto:[email protected] - repository: http://github.com/gisle/libwww-perl + repository: http://github.com/gisle/html-form no_index: directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.56 +generated_by: ExtUtils::MakeMaker version 6.57_05 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.00/Makefile.PL new/HTML-Form-6.01/Makefile.PL --- old/HTML-Form-6.00/Makefile.PL 2011-02-27 20:46:31.000000000 +0100 +++ new/HTML-Form-6.01/Makefile.PL 2012-02-18 14:17:40.000000000 +0100 @@ -1,6 +1,6 @@ #!perl -w -require 5.008008; +require 5.008001; use strict; use ExtUtils::MakeMaker; @@ -10,7 +10,7 @@ ABSTRACT_FROM => 'lib/HTML/Form.pm', AUTHOR => 'Gisle Aas <[email protected]>', LICENSE => "perl", - MIN_PERL_VERSION => 5.008008, + MIN_PERL_VERSION => 5.008001, PREREQ_PM => { 'URI' => "1.10", 'Encode' => "2", @@ -20,7 +20,7 @@ }, META_MERGE => { resources => { - repository => 'http://github.com/gisle/libwww-perl', + repository => 'http://github.com/gisle/html-form', MailingList => 'mailto:[email protected]', } }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.00/lib/HTML/Form.pm new/HTML-Form-6.01/lib/HTML/Form.pm --- old/HTML-Form-6.00/lib/HTML/Form.pm 2011-02-27 20:46:36.000000000 +0100 +++ new/HTML-Form-6.01/lib/HTML/Form.pm 2012-02-18 14:36:26.000000000 +0100 @@ -6,7 +6,7 @@ use Encode (); use vars qw($VERSION); -$VERSION = "6.00"; +$VERSION = "6.01"; my %form_tags = map {$_ => 1} qw(input textarea button select option); @@ -194,13 +194,15 @@ my($tag, $attr) = @$t; last if $tag eq "/form"; - # if we are inside a label tag, then keep - # appending any text to the current label - if(defined $current_label) { - $current_label = join " ", - grep { defined and length } - $current_label, - $p->get_phrase; + if ($tag ne 'textarea') { + # if we are inside a label tag, then keep + # appending any text to the current label + if(defined $current_label) { + $current_label = join " ", + grep { defined and length } + $current_label, + $p->get_phrase; + } } if ($tag eq "input") { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.00/t/form-label.t new/HTML-Form-6.01/t/form-label.t --- old/HTML-Form-6.00/t/form-label.t 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Form-6.01/t/form-label.t 2012-02-18 14:26:49.000000000 +0100 @@ -0,0 +1,33 @@ +#!perl + +use strict; +use warnings; +use Test qw(plan ok); + +plan tests => 2; + +use HTML::Form; + +{ +my $form = HTML::Form->parse(<<"EOT", base => "http://example.com";, strict => 1); +<form> + <label> + <input name="tt" type="text" value="test content"> + </label> +</form> +EOT +ok($form->param('tt'), 'test content'); + +} + +{ +my $form = HTML::Form->parse(<<"EOT", base => "http://example.com";, strict => 1); +<form> + <label> + <textarea name="tt">test content</textarea> + </label> +</form> +EOT + +ok($form->param('tt'), 'test content'); +} -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
