Mailinglist Archive: opensuse-commit (1469 mails)

< Previous

Next >

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 - coolo@xxxxxxxx
+
+- 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 <gisle@xxxxxxxxxxxxxxx>
@@ -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:libwww@xxxxxxxx
- 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 <gisle@xxxxxxxxxxxxxxx>',
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:libwww@xxxxxxxx',
}
},
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: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx

< Previous

Next >

Mailinglist Archive: opensuse-commit (1469 mails)

commit perl-HTML-Form for openSUSE:Factory

Search this list

List Navigation

This Thread