From 7324ab910c310a1e5949b4e2437624429f8b2810 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 10 Jul 2002 13:01:03 +0000
Subject: Die when you cannot parse metadata or conf

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

(limited to 'Echolot/Config.pm')

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) {
-- 
cgit v1.2.3