From 4e20e1a4a9643529bbd054a55287a0358e043bf9 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 2 Jul 2002 14:16:13 +0000
Subject: Fix parameter passing

---
 Echolot/Config.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Config.pm b/Echolot/Config.pm
index 4ad4246..70f3978 100644
--- a/Echolot/Config.pm
+++ b/Echolot/Config.pm
@@ -1,7 +1,7 @@
 package Echolot::Config;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Config.pm,v 1.2 2002/07/02 14:11:49 weasel Exp $
+# $Id: Config.pm,v 1.3 2002/07/02 14:16:13 weasel Exp $
 #
 
 =pod
@@ -59,6 +59,7 @@ sub init($) {
 		homedir                     => undef,
 		my_localpart                => undef,
 		my_domain                   => undef,
+		verbose                     => 0
 	};
 
 	{
@@ -73,10 +74,9 @@ sub init($) {
 	};
 
 	for my $key (keys %$params) {
-		$CONFIG->{$key} = $DEFAULT->{$key} if defined $CONFIG->{$key};
+		$CONFIG->{$key} = $params->{$key} if defined $CONFIG->{$key};
 	};
 
-
 	for my $key (keys %$CONFIG) {
 		warn ("Config option $key is not defined\n") unless defined $CONFIG->{$key};
 	};
-- 
cgit v1.2.3