From 662d82ec2badc34f4de561021ea714afe1e1bddc Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Tue, 28 May 2013 20:20:44 +0200
Subject: 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.pl | 2 ++
 1 file changed, 2 insertions(+)

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