You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by mm...@apache.org on 2010/10/28 02:39:18 UTC
svn commit: r1028149 -
/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AntiVirus.pm
Author: mmartinec
Date: Thu Oct 28 00:39:18 2010
New Revision: 1028149
URL: http://svn.apache.org/viewvc?rev=1028149&view=rev
Log:
Bug 6488 - Lint errors with Perl 5.12.1 in AntiVirus.pm
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AntiVirus.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AntiVirus.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AntiVirus.pm?rev=1028149&r1=1028148&r2=1028149&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AntiVirus.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AntiVirus.pm Thu Oct 28 00:39:18 2010
@@ -98,9 +98,9 @@ sub _check_attachments {
my ($ctype, $boundary, $charset, $name) =
Mail::SpamAssassin::Util::parse_content_type($p->get_header('content-type'));
- $name = lc $name || '';
+ $name = lc($name || '');
- my $cte = lc $p->get_header('content-transfer-encoding') || '';
+ my $cte = lc($p->get_header('content-transfer-encoding') || '');
$ctype = lc $ctype;
if ($name && $name =~ /\.(?:ade|adp|asx|bas|bat|chm|cmd|com|cpl|crt|dll|exe|hlp|hta|inf|ins|isp|js|jse|lnk|mda|mdb|mde|mdt|mdw|mdz|msc|msi|msp|mst|nws|ops|pcd|pif|prf|reg|scf|scr\??|sct|shb|shs|shm|swf|url|vb|vbe|vbs|vbx|vxd|wsc|wsf|wsh)$/)