From e00e832d440e065e66858155264d0e79cfd3df23 Mon Sep 17 00:00:00 2001 From: Peter Palfrader 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 -# $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