summaryrefslogtreecommitdiff
path: root/Echolot/Config.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-10 13:01:03 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-10 13:01:03 +0000
commit7324ab910c310a1e5949b4e2437624429f8b2810 (patch)
treeb6cd197050b288f3d99de97e869be192ab0170f5 /Echolot/Config.pm
parent9760644a9e83a93e6aecb3e01fc72a41874e25ec (diff)
Die when you cannot parse metadata or conf
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 8861873..789ccac 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.18 2002/07/10 11:49:41 weasel Exp $
+# $Id: Config.pm,v 1.19 2002/07/10 13:01:03 weasel Exp $
#
=pod
@@ -139,13 +139,13 @@ sub init($) {
{
local $/ = undef;
open(CONFIGCODE, $configfile) or
- carp("Could not open configfile '$configfile': $!");
+ croak("Could not open configfile '$configfile': $!");
my $config_code = <CONFIGCODE>;
close (CONFIGCODE);
($config_code) = $config_code =~ /^(.*)$/s;
eval ($config_code);
($EVAL_ERROR) and
- carp("Evaling config code from '$configfile' returned error: $EVAL_ERROR");
+ croak("Evaling config code from '$configfile' returned error: $EVAL_ERROR");
}
for my $key (keys %$DEFAULT) {