From e00e832d440e065e66858155264d0e79cfd3df23 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 14 Jan 2003 06:32:22 +0000
Subject: Do error on confess

---
 Echolot/Log.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Log.pm b/Echolot/Log.pm
index a91ac08..4c24aa0 100644
--- a/Echolot/Log.pm
+++ b/Echolot/Log.pm
@@ -1,7 +1,7 @@
 package Echolot::Log;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Log.pm,v 1.2 2003/01/14 06:27:41 weasel Exp $
+# $Id: Log.pm,v 1.3 2003/01/14 06:32:22 weasel Exp $
 #
 
 =pod
@@ -41,8 +41,8 @@ sub reopen() {
 	$LOG->remove( 'file1' );
 	$LOG->add( Log::Dispatch::File->new(
 		name       => 'file1',
-		min_level  => 'debug',
-		filename   => 'pingd.log',
+		min_level  => Echolot::Config::get()->{'loglevel'},
+		filename   => Echolot::Config::get()->{'logfile'},
 		mode       => 'append',
 	));
 };
@@ -99,7 +99,7 @@ sub confess($) {
 	my $longmess = Carp::longmess();
 	$longmess =~ s/^/	/mg;
 	$msg .= "\n".$longmess;
-	critical($msg);
+	error($msg);
 	die($msg);
 };
 
-- 
cgit v1.2.3