don't try to open configuration files that does not exist.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@151 958fd67b-6ff1-0310-b445-bb7760255be9
2003-06-10 10:06:31 +00:00 · 2003-06-10 10:06:31 +00:00 · 1eafaba4e9
commit 1eafaba4e9
parent 078ab57dd5
1 changed files with 1 additions and 0 deletions
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@ -77,6 +77,7 @@ sub get_qmail_config {
    return \%h;
  }

+  return unless -e $configfile;
  open CF, "<$configfile" or warn "$$ could not open configfile $configfile: $!" and return;
  my @config = <CF>;
  chomp @config;