diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-01-14 05:25:35 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-01-14 05:25:35 +0000 |
| commit | f46e990efedb3d5d8ef94e833e0fa676047da1fe (patch) | |
| tree | 2482570e7e1c1b8458f3cf89163b87a30d1b1b70 /Echolot/Config.pm | |
| parent | e612f292dab8caad8f62cfef0ac40ae930d8efdf (diff) | |
First go at sane logging
Diffstat (limited to 'Echolot/Config.pm')
| -rw-r--r-- | Echolot/Config.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Echolot/Config.pm b/Echolot/Config.pm index fc0d9ae..090d55b 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.44 2002/12/13 06:50:30 weasel Exp $ +# $Id: Config.pm,v 1.45 2003/01/14 05:25:35 weasel Exp $ # =pod @@ -200,7 +200,7 @@ sub init($) { }; die ("no Configuration file found\n") unless defined $configfile; - + { local $/ = undef; open(CONFIGCODE, $configfile) or @@ -250,7 +250,6 @@ sub init($) { for my $key (keys %$CONFIG) { warn ("Config option $key is not defined\n") unless defined $CONFIG->{$key}; }; - }; sub get() { |