File Mail-SpamAssassin-3.3.1-MIMEEval.patch of Package spamassassin

diff -ruN Mail-SpamAssassin-3.3.1-orig/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm
--- Mail-SpamAssassin-3.3.1-orig/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm	2010-03-16 14:49:21.000000000 +0000
+++ Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm	2010-04-01 19:07:12.501778250 +0000
@@ -498,7 +498,7 @@
     # perhaps just limit to test, and image?
     next if ($ctype eq 'application/ics');
 
-    my $cte = lc $p->get_header('content-transfer-encoding') || '';
+    my $cte = lc($p->get_header('content-transfer-encoding') || '');
     next if ($cte !~ /^base64$/);
     foreach my $l ( @{$p->raw()} ) {
       my $len = length $l;