From d980f87eeadafe3a8a34a0f39473383850ac90e48cd322c55b0286c9ccc41143 Mon Sep 17 00:00:00 2001
From: Stephan Kulow <coolo@suse.com>
Date: Thu, 1 Mar 2012 16:23:13 +0000
Subject: [PATCH] Accepting request 105998 from devel:languages:perl

- updated to 6.01
  Don't pick up label text from textarea [RT#72925]
  Restore perl-5.8.1 compatiblity.

OBS-URL: https://build.opensuse.org/request/show/105998
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-HTML-Form?expand=0&rev=5
---
 HTML-Form-6.00.tar.gz  |  3 ---
 HTML-Form-6.01.tar.gz  |  3 +++
 perl-HTML-Form.changes |  7 +++++++
 perl-HTML-Form.spec    | 30 +++++++++++++-----------------
 4 files changed, 23 insertions(+), 20 deletions(-)
 delete mode 100644 HTML-Form-6.00.tar.gz
 create mode 100644 HTML-Form-6.01.tar.gz

diff --git a/HTML-Form-6.00.tar.gz b/HTML-Form-6.00.tar.gz
deleted file mode 100644
index 304a7b8..0000000
--- a/HTML-Form-6.00.tar.gz
+++ /dev/null
@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:b41b6f5480493d427a56974c0fb6f51e807d93938ef1518dd22454b93cad4987
-size 23074
diff --git a/HTML-Form-6.01.tar.gz b/HTML-Form-6.01.tar.gz
new file mode 100644
index 0000000..a68d3e5
--- /dev/null
+++ b/HTML-Form-6.01.tar.gz
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:5d84ce1dac47a7d7f05a73d9d3703484b0c9c7e425938c2cb33f99652737f14c
+size 23275
diff --git a/perl-HTML-Form.changes b/perl-HTML-Form.changes
index 81e5541..c285861 100644
--- a/perl-HTML-Form.changes
+++ b/perl-HTML-Form.changes
@@ -1,3 +1,10 @@
+-------------------------------------------------------------------
+Mon Feb 20 10:48:17 UTC 2012 - coolo@suse.com
+
+- updated to 6.01
+  Don't pick up label text from textarea [RT#72925]
+  Restore perl-5.8.1 compatiblity.
+
 -------------------------------------------------------------------
 Mon Mar 14 12:58:35 UTC 2011 - vcizek@novell.com
 
diff --git a/perl-HTML-Form.spec b/perl-HTML-Form.spec
index c6dc5f4..4af95a1 100644
--- a/perl-HTML-Form.spec
+++ b/perl-HTML-Form.spec
@@ -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 @@ have names, and which can take on various values. The state of a form can
 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 @@ can be passed to the request() method of 'LWP::UserAgent'.
 %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