diff options
author | Florian Pritz <bluewind@xinu.at> | 2013-05-28 20:45:23 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2013-05-28 20:45:23 +0200 |
commit | 7071c6fff1e0e4a3159f088a5a30d0fb2c32a997 (patch) | |
tree | ed0b8ee6d7f9590f343d03e63881a7e3ddb5286e /spampd/untaint-pidfile.patch | |
parent | c6000c9d9949b3326fb82f02431899ab6774b960 (diff) | |
download | aur-packages-7071c6fff1e0e4a3159f088a5a30d0fb2c32a997.tar.gz aur-packages-7071c6fff1e0e4a3159f088a5a30d0fb2c32a997.tar.xz |
spampd: some fixes for perl 5.18
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'spampd/untaint-pidfile.patch')
-rw-r--r-- | spampd/untaint-pidfile.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/spampd/untaint-pidfile.patch b/spampd/untaint-pidfile.patch new file mode 100644 index 0000000..cd93ad0 --- /dev/null +++ b/spampd/untaint-pidfile.patch @@ -0,0 +1,28 @@ +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, |