From a979f8344f8d40bbaf759410c4f3eb8fb0e3d726 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Sun, 18 Jul 2004 11:02:08 +0000
Subject: [PATCH] fix the CDB support so we can work without it (but with a big
 warning)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@275 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm
index 6a6598c..a33a00e 100644
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@@ -83,8 +83,10 @@ sub get_qmail_config {
     eval { require CDB_File };
 
     if ($@) {
-      $self->log(LOGERROR, "No $configfile.cdb support, could not load CDB_File module: $@");
+      $self->log(LOGERROR, "No CDB Support! Did NOT read $configfile.cdb, could not load CDB_File module: $@");
+      return +{};
     }
+
     my %h;
     unless (tie(%h, 'CDB_File', "$configfile.cdb")) {
       $self->log(LOGERROR, "tie of $configfile.cdb failed: $!");