From 8e3c0cf33a584e8f91caf86e48ca4ba15c5f6fc9 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 18 Mar 2008 15:19:20 +0000
Subject: [PATCH] fix config caching again - defaults weren't applied prior to
 this patch

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

diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm
index ec1d5b0..bb53118 100644
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@@ -181,7 +181,7 @@ sub get_qmail_config {
   # CDB config support really should be moved to a plugin
   if ($type and $type eq "map")  {
     unless (-e $configfile . ".cdb") {
-        $_config_cache->{$config} = [];
+        $_config_cache->{$config} ||= [];
         return +{};
     }
     eval { require CDB_File };
@@ -208,7 +208,7 @@ sub get_qmail_config {
 sub _config_from_file {
   my ($self, $configfile, $config, $visited) = @_;
   unless (-e $configfile) {
-      $_config_cache->{$config} = [];
+      $_config_cache->{$config} ||= [];
       return;
   }