[perl-Class-DBI-AsForm] fix FTBFS, thanks to Petr Pisar

[Tom Callaway]

commit f4899c6181d80e4a48e3784d632a90522ec15721
Author: Tom "spot" Callaway <tcallawa at redhat.com>
Date:   Tue Jun 28 15:56:34 2011 -0400

    fix FTBFS, thanks to Petr Pisar

 perl-Class-DBI-AsForm-fix01test.patch |   34 +++++++++++++++++++++++---------
 perl-Class-DBI-AsForm.spec            |    5 +++-
 2 files changed, 28 insertions(+), 11 deletions(-)
---
diff --git a/perl-Class-DBI-AsForm-fix01test.patch b/perl-Class-DBI-AsForm-fix01test.patch
index 1ad196f..b0d8503 100644
--- a/perl-Class-DBI-AsForm-fix01test.patch
+++ b/perl-Class-DBI-AsForm-fix01test.patch
@@ -1,22 +1,36 @@
---- Class-DBI-AsForm-2.42/t/01.t.BAD	2006-09-14 20:54:39.000000000 -0500
-+++ Class-DBI-AsForm-2.42/t/01.t	2006-09-14 20:58:35.000000000 -0500
-@@ -40,15 +40,15 @@
+From ca3bb3bb3004396afa52ea9b3c99e9b5dd363576 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Fri, 24 Jun 2011 12:12:50 +0200
+Subject: [PATCH] Adapt to formating changes in HTML-Tree 4.0 (RT#63623)
+
+---
+ t/01.t |   11 ++++-------
+ 1 files changed, 4 insertions(+), 7 deletions(-)
+
+diff --git a/t/01.t b/t/01.t
+index 96133ba..e26e83e 100644
+--- a/t/01.t
++++ b/t/01.t
+@@ -40,15 +40,12 @@ like(Foo->to_field("baz"), qr/<input .*name="baz"/,
      "Ordinary text field OK");
  
  Foo->has_a(bar => Bar);
 -is(Foo->to_field("bar"), "<select name=\"bar\"><option value=1>Hi</option></select>\n",
-+is(Foo->to_field("bar"), "<select name=\"bar\"><option value=\"1\">Hi</option></select>\n",
++is(Foo->to_field("bar"), "<select name=\"bar\"><option value=\"1\">Hi</option></select>",
      "Select OK");
  
  my $x = bless({id => 1, bar => Bar->retrieve_all(), baz => "Hello there"}, "Foo");
 -my %cgi = ( id => '<input name="id" type="text" value=1>
-+my %cgi = ( id => '<input name="id" type="text" value="1" />
- ',
+-',
 -    bar => '<select name="bar"><option selected value=1>Hi</option></select>
-+    bar => '<select name="bar"><option selected value="1">Hi</option></select>
- ',
+-',
 -            baz => '<input name="baz" type="text" value="Hello there">
-+            baz => '<input name="baz" type="text" value="Hello there" />
- '
+-'
++my %cgi = ( id => '<input name="id" type="text" value="1" />',
++    bar => '<select name="bar"><option selected value="1">Hi</option></select>',
++            baz => '<input name="baz" type="text" value="Hello there" />'
            );
  is_deeply({$x->to_cgi}, \%cgi, "All correct as an object method");
+-- 
+1.7.5.4
+
diff --git a/perl-Class-DBI-AsForm.spec b/perl-Class-DBI-AsForm.spec
index 664120f..1170024 100644
--- a/perl-Class-DBI-AsForm.spec
+++ b/perl-Class-DBI-AsForm.spec
@@ -1,6 +1,6 @@
 Name:           perl-Class-DBI-AsForm
 Version:        2.42
-Release:        13%{?dist}
+Release:        14%{?dist}
 Summary:        Produce HTML form elements for database columns
 Group:          Development/Libraries
 License:        GPL+ or Artistic
@@ -50,6 +50,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Fri Jun 24 2011 Petr Pisar <ppisar at redhat.com> - 2.42-14
+- Adapt to formating changes in HTML-Tree 4.0 (RT#63623, rhbz#715795)
+
 * Tue Feb 08 2011 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 2.42-13
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild