summaryrefslogtreecommitdiff
path: root/Echolot/Config.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-02 14:16:13 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-02 14:16:13 +0000
commit4e20e1a4a9643529bbd054a55287a0358e043bf9 (patch)
tree7546653cd3b524c0b4bac4b1f1dc0e6dd4d71088 /Echolot/Config.pm
parent6e08b2d6c04a17203af125f2b82cce706550a51d (diff)
Fix parameter passing
Diffstat (limited to 'Echolot/Config.pm')
-rw-r--r--Echolot/Config.pm6
1 files changed, 3 insertions, 3 deletions
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};
};