pkgsrc-ng/mail/postgrey/patches/patch-postgrey
2014-08-11 13:27:10 +02:00

24 lines
739 B
Plaintext

$NetBSD: patch-postgrey,v 1.2 2013/08/21 09:20:16 wiz Exp $
Fix postgrey with perl-5.18.
--- postgrey.orig 2010-05-04 20:51:52.000000000 +0000
+++ postgrey
@@ -552,6 +552,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;