Fix bug hiding the error message when an existing configuration file
isn't readable. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@145 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
c2b8e8aa19
commit
9b150dfcf1
3
Changes
3
Changes
@ -1,5 +1,8 @@
|
|||||||
0.26-dev
|
0.26-dev
|
||||||
|
|
||||||
|
Fix bug hiding the error message when an existing configuration file
|
||||||
|
isn't readable.
|
||||||
|
|
||||||
If a plugin running the ehlo hook add something to the ARRAY
|
If a plugin running the ehlo hook add something to the ARRAY
|
||||||
reference $self->transaction->notes('capabilities') then it will be
|
reference $self->transaction->notes('capabilities') then it will be
|
||||||
added to the EHLO response.
|
added to the EHLO response.
|
||||||
|
@ -77,7 +77,7 @@ sub get_qmail_config {
|
|||||||
return \%h;
|
return \%h;
|
||||||
}
|
}
|
||||||
|
|
||||||
open CF, "<$configfile" or warn "$$ could not open configfile $configfile: $!", return;
|
open CF, "<$configfile" or warn "$$ could not open configfile $configfile: $!" and return;
|
||||||
my @config = <CF>;
|
my @config = <CF>;
|
||||||
chomp @config;
|
chomp @config;
|
||||||
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
|
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
|
||||||
|
Loading…
Reference in New Issue
Block a user