dspam: added use lib, removed some parens
This commit is contained in:
parent
a0212347bf
commit
537af7c095
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user