commit 662d82ec2badc34f4de561021ea714afe1e1bddc
Author: Florian Pritz <bluewind@xinu.at>
Date:   Tue May 28 20:20:44 2013 +0200

    untaint $pidfile to prevent errors when opening it
    
    For some reason that worked before perl 5.18, but I don't care enough
    to figure out why. Since we trust the CLI args untaining anything
    should be ok.
    
    Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 spampd | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/spampd.pl b/spampd.pl
index 7b1f234..53161d9 100644
--- a/spampd
+++ b/spampd
@@ -937,6 +937,8 @@ if ( !$options{logsock} ) {
 	};
 }
 
+# untaint pidfile
+($pidfile) = ($pidfile =~ /^(.+)$/);
 
 my $server = bless {
     server => {host => $host,