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>

1 files changed, 2 insertions, 0 deletions

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,