diff options
Diffstat (limited to 'lib/Iurt/Util.pm')
| -rw-r--r-- | lib/Iurt/Util.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Iurt/Util.pm b/lib/Iurt/Util.pm index a101f76..3e99154 100644 --- a/lib/Iurt/Util.pm +++ b/lib/Iurt/Util.pm @@ -53,8 +53,10 @@ my @plog_prefix = ( "D: ", ); +# FIXME: remove one of ERROR or ERR, check and fix everywhere else my %plog_level = ( NONE => 0, + ERROR => 1, ERR => 1, WARN => 2, MSG => 3, @@ -106,16 +108,13 @@ level set with plog_init(). sub plog { my $level = $#_ ? shift : 'INFO'; $level = $plog_level{$level}; - my ($p, $e) = ($plog_prefix[$level], $plog_ctr{normal}); + my ($p, $e) = ($plog_prefix[$level], ($plog_color ? $plog_ctr{normal} : "")); print $plog_file "$p@_$e\n" if $plog_level >= $level; } sub pdie { - my $level = $plog_level{ERROR}; - my ($p, $e) = ($plog_prefix[$level], $plog_ctr{normal}); - - print $plog_file "$p@_$e\n" if $plog_level >= $level; + plog('ERR', "@_"); die $@; } |