From 1eafaba4e9a4c47ba2b4aef8f64e69b6260d4f29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Tue, 10 Jun 2003 10:06:31 +0000
Subject: [PATCH] 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
---
 lib/Qpsmtpd.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm
index 7f24e27..f932c97 100644
--- 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;