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 warnings;
use lib 'lib';
use Qpsmtpd::Constants;
use Qpsmtpd::DSN;
use IO::Handle;
@ -517,11 +519,11 @@ sub get_dspam_results {
return;
};
my @bits = split(/,\s+/, $string); chomp @bits;
my @bits = split /,\s+/, $string; chomp @bits;
my $class = shift @bits;
my %d;
foreach (@bits) {
my ($key,$val) = split(/=/, $_);
my ($key,$val) = split /=/, $_;
$d{$key} = $val;
};
$d{class} = $class;