diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-01-14 06:32:22 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-01-14 06:32:22 +0000 |
| commit | e00e832d440e065e66858155264d0e79cfd3df23 (patch) | |
| tree | f6a41b77399ad9a39bdc8ffa1e0f27a6318cf023 /Echolot/Log.pm | |
| parent | d655fef3b7de4b3512444c5149fd454e117f152b (diff) | |
Do error on confess
Diffstat (limited to 'Echolot/Log.pm')
| -rw-r--r-- | Echolot/Log.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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); }; |