mirror of https://github.com/digint/btrbk
btrbk: cosmetics: fix trace log
parent
808633a3ae
commit
6e7c8c409b
4
btrbk
4
btrbk
|
@ -481,12 +481,12 @@ sub ERROR { _log_cont("ERROR: ", @_) }
|
|||
|
||||
sub INFO_ONCE {
|
||||
my $t = shift;
|
||||
if($warn_once{INFO}{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; }
|
||||
if($warn_once{INFO}{$t}) { TRACE("INFO(again): $t", @_) if($do_trace); return 0; }
|
||||
else { $warn_once{INFO}{$t} = 1; INFO($t, @_); return 1; }
|
||||
}
|
||||
sub WARN_ONCE {
|
||||
my $t = shift;
|
||||
if($warn_once{WARN}{$t}) { TRACE("INFO(again): $t", @_) if($do_trace); return 0; }
|
||||
if($warn_once{WARN}{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; }
|
||||
else { $warn_once{WARN}{$t} = 1; WARN($t, @_); return 1; }
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue