perl-CGI-FormMagick/sme9/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	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	}