perl-CGI-FormMagick/sme7/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	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});