btrbk: logging functions take array as argument

pull/299/head
Axel Burri 2019-08-19 12:40:41 +02:00
parent fa3334cbb7
commit d0f0c18f64
1 changed files with 5 additions and 5 deletions

10
btrbk
View File

@ -374,11 +374,11 @@ END_HELP
}
sub TRACE { my $t = shift; print STDERR "... $t\n" if($loglevel >= 4); }
sub DEBUG { my $t = shift; print STDERR "$t\n" if($loglevel >= 3); }
sub INFO { my $t = shift; print STDERR "$t\n" if($loglevel >= 2); }
sub WARN { my $t = shift; print STDERR "WARNING: $t\n" if($loglevel >= 1); }
sub ERROR { my $t = shift; print STDERR "ERROR: $t\n"; }
sub TRACE { if($loglevel >= 4) { print STDERR "... $_\n" foreach(@_) } }
sub DEBUG { if($loglevel >= 3) { print STDERR "$_\n" foreach(@_) } }
sub INFO { if($loglevel >= 2) { print STDERR "$_\n" foreach(@_) } }
sub WARN { if($loglevel >= 1) { print STDERR "WARNING: $_\n" foreach(@_) } }
sub ERROR { print STDERR "ERROR: $_\n" foreach(@_) ; }
sub WARN_ONCE {
my $t = shift;