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;

-- 

1.8.4.2