mirror of https://github.com/digint/btrbk
btrbk: logging functions take array as argument
parent
fa3334cbb7
commit
d0f0c18f64
10
btrbk
10
btrbk
|
@ -374,11 +374,11 @@ END_HELP
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
sub TRACE { my $t = shift; print STDERR "... $t\n" if($loglevel >= 4); }
|
sub TRACE { if($loglevel >= 4) { print STDERR "... $_\n" foreach(@_) } }
|
||||||
sub DEBUG { my $t = shift; print STDERR "$t\n" if($loglevel >= 3); }
|
sub DEBUG { if($loglevel >= 3) { print STDERR "$_\n" foreach(@_) } }
|
||||||
sub INFO { my $t = shift; print STDERR "$t\n" if($loglevel >= 2); }
|
sub INFO { if($loglevel >= 2) { print STDERR "$_\n" foreach(@_) } }
|
||||||
sub WARN { my $t = shift; print STDERR "WARNING: $t\n" if($loglevel >= 1); }
|
sub WARN { if($loglevel >= 1) { print STDERR "WARNING: $_\n" foreach(@_) } }
|
||||||
sub ERROR { my $t = shift; print STDERR "ERROR: $t\n"; }
|
sub ERROR { print STDERR "ERROR: $_\n" foreach(@_) ; }
|
||||||
|
|
||||||
sub WARN_ONCE {
|
sub WARN_ONCE {
|
||||||
my $t = shift;
|
my $t = shift;
|
||||||
|
|
Loading…
Reference in New Issue