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

18 lines
826 B
Diff
Raw Normal View History

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;
+ }
}
}
}