I've got another perl script (home made) which started acting up
with Perl-5.12, so I've been seeing this uninitialised value error
for a while.
It may be a clunky fix, but I think the following diff fixes it.
Gord
--- /usr/share/perl5/Mail/SpamAssassin/Plugin/MIMEEval.pm~
2010-03-16 08:49:21.000000000 -0600
+++ /usr/share/perl5/Mail/SpamAssassin/Plugin/MIMEEval.pm
2011-06-05 06:40:45.000000000 -0600
@@ -498,7 +498,8 @@
# perhaps just limit to test, and image?
next if ($ctype eq 'application/ics');
- my $cte = lc $p->get_header('content-transfer-encoding') ||
'';
+ my $tmp_cte = $p->get_header('content-transfer-encoding');
+ my $cte = defined( $tmp_cte ) ? lc $tmp_cte : '';
next if ($cte !~ /^base64$/);
foreach my $l ( @{$p->raw()} ) {
my $len = length $l;
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
