From a7742b5b40eef3d6ad9436d637bdc5fea06eb549 Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Fri, 15 Mar 2013 22:12:50 -0700
Subject: [PATCH] dspam: added use lib, removed some parens

---
 plugins/dspam | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/plugins/dspam b/plugins/dspam
index 6812451..7cef1f7 100644
--- a/plugins/dspam
+++ b/plugins/dspam
@@ -200,6 +200,8 @@ ie, (Trust smtpd).
 use strict;
 use warnings;
 
+use lib 'lib';
+
 use Qpsmtpd::Constants;
 use Qpsmtpd::DSN;
 use IO::Handle;
@@ -279,7 +281,7 @@ sub assemble_message {
     $transaction->body_resetpos;
     while (my $line = $transaction->body_getline) { $message .= $line; };
 
-    $message = join(CRLF, split/\n/, $message);
+    $message = join(CRLF, split /\n/, $message);
     return $message . CRLF;
 };
 
@@ -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;