diff options
Diffstat (limited to 'lib/Tools.pm')
| -rw-r--r-- | lib/Tools.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Tools.pm b/lib/Tools.pm index 155de0a..97a483d 100644 --- a/lib/Tools.pm +++ b/lib/Tools.pm @@ -132,7 +132,7 @@ sub lg { sub debug { # ------------------ my $msg = shift; - &_msg(250,$msg, 3); + &_msg(250,$msg, 4); return undef; } @@ -144,7 +144,7 @@ sub event { my ($package, $filename, $line, $subroutine) = caller(1); &{$LOGCALLB}($module, $subroutine, $msg); - &_msg(270,$msg, 2); + &_msg(270,$msg, 3); return undef; } @@ -153,7 +153,7 @@ sub error { # ------------------ my $msg = shift; - &_msg(501,$msg, 1); + &_msg(501,$msg, 2); return undef; } @@ -163,7 +163,7 @@ sub panic { # ------------------ my $msg = shift; - &_msg(550,$msg, 0); + &_msg(550,$msg, 1); return undef; } |