perl-CGI-FormMagick/sme8/perl-CGI-FormMagick-0.92-nodata.patch

--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm.nodata     2007-06-12 12:05:18.000000000 -0600
+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm    2007-06-12 12:06:05.000000000 -0600
@@ -460,11 +460,11 @@
 
         # Trim leading and trailing whitespace from the field data, unless
         # there is a notrim attr set to true.
-        if ($field->{id} and $info->{type} ne 'literal' and not $info->{notrim})
+        if ($field->{id} and not $info->{notrim})
         {
             $self->debug_msg("Trimming whitespace around field $field->{id}");
             my $data = $self->{cgi}->param($field->{id});
-            if ($data =~ s/^\s+|\s+$//g)
+            if (defined $data && $data =~ s/^\s+|\s+$//g)
             {
                 $self->debug_msg("Found whitespace to trim, resaving param");
                 $self->{cgi}->param(-name => $field->{id},
1	slords	1.1	--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm.nodata 2007-06-12 12:05:18.000000000 -0600
2			+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm 2007-06-12 12:06:05.000000000 -0600
3			@@ -460,11 +460,11 @@
4
5			# Trim leading and trailing whitespace from the field data, unless
6			# there is a notrim attr set to true.
7			- if ($field->{id} and $info->{type} ne 'literal' and not $info->{notrim})
8			+ if ($field->{id} and not $info->{notrim})
9			{
10			$self->debug_msg("Trimming whitespace around field $field->{id}");
11			my $data = $self->{cgi}->param($field->{id});
12			- if ($data =~ s/^\s+\|\s+$//g)
13			+ if (defined $data && $data =~ s/^\s+\|\s+$//g)
14			{
15			$self->debug_msg("Found whitespace to trim, resaving param");
16			$self->{cgi}->param(-name => $field->{id},