Skip to content
Permalink
Browse files

Make postgrey work with Perl 5.18

  • Loading branch information
Yasuhiro KIMURA
Yasuhiro KIMURA committed Aug 17, 2013
1 parent 64d3470 commit 9673b54064691a5b9c295ffea340d8a1f9ee1cb8
Showing with 10 additions and 0 deletions.
  1. +10 −0 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;

0 comments on commit 9673b54

Please sign in to comment.
You can’t perform that action at this time.