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:
Ask Bjørn Hansen 2003-04-23 03:36:36 +00:00
parent c2b8e8aa19
commit 9b150dfcf1
2 changed files with 4 additions and 1 deletions

View File

@ -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.

View File

@ -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;