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

diff -Nur -x '*.orig' -x '*.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm    2005-10-31 10:24:02.000000000 -0700
+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm  2007-06-11 16:21:43.000000000 -0600
@@ -460,7 +460,7 @@
 
         # Trim leading and trailing whitespace from the field data, unless
         # there is a notrim attr set to true.
-        if ($field->{id} and not $info->{notrim})
+        if ($field->{id} and $info->{type} ne 'literal' and not $info->{notrim})
         {
             $self->debug_msg("Trimming whitespace around field $field->{id}");
             my $data = $self->{cgi}->param($field->{id});
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm
2			--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm 2005-10-31 10:24:02.000000000 -0700
3			+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator.pm 2007-06-11 16:21:43.000000000 -0600
4			@@ -460,7 +460,7 @@
5
6			# Trim leading and trailing whitespace from the field data, unless
7			# there is a notrim attr set to true.
8			- if ($field->{id} and not $info->{notrim})
9			+ if ($field->{id} and $info->{type} ne 'literal' and not $info->{notrim})
10			{
11			$self->debug_msg("Trimming whitespace around field $field->{id}");
12			my $data = $self->{cgi}->param($field->{id});