| From 9673b54064691a5b9c295ffea340d8a1f9ee1cb8 Mon Sep 17 00:00:00 2001 |
| From: Yasuhiro KIMURA <yasu@utahime.org> |
| Date: Sat, 17 Aug 2013 22:05:27 +0900 |
| Subject: [PATCH] Make postgrey work with Perl 5.18 |
| |
| --- |
| postgrey | 10 ++++++++++ |
| 1 file changed, 10 insertions(+) |
| |
| diff --git a/postgrey b/postgrey |
| index 7cb0352..37f69bd 100755 |
| --- a/postgrey |
| +++ b/postgrey |
| @@ -557,6 +557,16 @@ sub main() |
| if($opt{dbdir}) { |
| $opt{dbdir} =~ /^(.*)$/; $opt{dbdir} = $1; |
| } |
| + # untaint what is given on --pidfile. It is not security sensitive since |
| + # it is provided by the admin |
| + if($opt{pidfile}) { |
| + $opt{pidfile} =~ /^(.*)$/; $opt{pidfile} = $1; |
| + } |
| + # untaint what is given on --inet. It is not security sensitive since |
| + # it is provided by the admin |
| + if($opt{inet}) { |
| + $opt{inet} =~ /^(.*)$/; $opt{inet} = $1; |
| + } |
| |
| # determine proper "logsock" for Sys::Syslog |
| my $syslog_logsock; |
| -- |
| 2.0.3 |
| |