perl-CGI-FormMagick/sme10/perl-CGI-FormMagick-0.93-Starter-WebPage-Error.patch

diff -ruN perl-CGI-FormMagick-0.92.old/lib/CGI/FormMagick/HTML.pm perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm
--- perl-CGI-FormMagick-0.92.old/lib/CGI/FormMagick/HTML.pm     2013-03-16 18:45:52.000000000 -0700
+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2013-03-16 18:47:50.000000000 -0700
@@ -300,8 +300,11 @@
             print  qq(      <td class="sme-noborders-content">$inputfield</td>\n    </tr>\n);
 
             # display errors (if any) below the field label, taking up a whole row
-            my $error = $fm->{errors}->{$info->{label}};
-            $fm->print_field_error($error) if $error;
+            if ($info->{label})
+            {
+                my $error = $fm->{errors}->{$info->{label}};
+                $fm->print_field_error($error) if $error;
+            }
         }
     }
 }
1	vip-ire	1.1	diff -ruN perl-CGI-FormMagick-0.92.old/lib/CGI/FormMagick/HTML.pm perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm
2			--- perl-CGI-FormMagick-0.92.old/lib/CGI/FormMagick/HTML.pm 2013-03-16 18:45:52.000000000 -0700
3			+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2013-03-16 18:47:50.000000000 -0700
4			@@ -300,8 +300,11 @@
5			print qq( <td class="sme-noborders-content">$inputfield</td>\n </tr>\n);
6
7			# display errors (if any) below the field label, taking up a whole row
8			- my $error = $fm->{errors}->{$info->{label}};
9			- $fm->print_field_error($error) if $error;
10			+ if ($info->{label})
11			+ {
12			+ my $error = $fm->{errors}->{$info->{label}};
13			+ $fm->print_field_error($error) if $error;
14			+ }
15			}
16			}
17			}