dspam: added use lib, removed some parens

This commit is contained in:
Matt Simerson 2013-03-15 22:12:50 -07:00
parent a0212347bf
commit 537af7c095

View File

@ -200,6 +200,8 @@ ie, (Trust smtpd).
use strict; use strict;
use warnings; use warnings;
use lib 'lib';
use Qpsmtpd::Constants; use Qpsmtpd::Constants;
use Qpsmtpd::DSN; use Qpsmtpd::DSN;
use IO::Handle; use IO::Handle;
@ -517,11 +519,11 @@ sub get_dspam_results {
return; return;
}; };
my @bits = split(/,\s+/, $string); chomp @bits; my @bits = split /,\s+/, $string; chomp @bits;
my $class = shift @bits; my $class = shift @bits;
my %d; my %d;
foreach (@bits) { foreach (@bits) {
my ($key,$val) = split(/=/, $_); my ($key,$val) = split /=/, $_;
$d{$key} = $val; $d{$key} = $val;
}; };
$d{class} = $class; $d{class} = $class;