$NetBSD: patch-bj,v 1.2 2010/10/04 22:12:06 pettai Exp $

  fixes spamassassin bug #6396 (perl 5.12.x and spamassassin 3.3.1)
  https://issues.apache.org/SpamAssassin/show_bug.cgi?id=6396

--- lib/Mail/SpamAssassin/Plugin/MIMEEval.pm.orig	2010-03-16 14:49:21.000000000 +0000
+++ lib/Mail/SpamAssassin/Plugin/MIMEEval.pm
@@ -498,7 +498,7 @@ sub _check_base64_length {
     # 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;
