Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Logger: Check msg and label for definedness

Browse source
This commit is contained in:
Richard Hansen 2024-08-02 18:15:29 -04:00
parent 15db76f739
commit 0f094ac121
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ddclient.in
View file

@ -2374,16 +2374,12 @@ sub ynu {
# provided (it is ignored if the `msg` keyword is present). # provided (it is ignored if the `msg` keyword is present).
sub log { sub log {
my $self = shift; my $self = shift;
my %args = ( my %args = (@_ % 2 ? (msg => pop) : (), @_);
msg => '',
label => '',
(@_ % 2) ? (msg => pop) : (),
@_,
);
$args{ctx} = [$args{ctx} // ()] if ref($args{ctx}) eq ''; $args{ctx} = [$args{ctx} // ()] if ref($args{ctx}) eq '';
my $buffer = $args{msg}; my $buffer = $args{msg} // '';
chomp($buffer); chomp($buffer);
if (!$args{raw}) { if (!$args{raw}) {
$args{label} //= '';
my $prefix = $args{label} ? sprintf("%-8s ", $args{label} . ':') : ''; my $prefix = $args{label} ? sprintf("%-8s ", $args{label} . ':') : '';
$prefix .= "[$_]" for $self->_ctxs(), @{$args{ctx}}; $prefix .= "[$_]" for $self->_ctxs(), @{$args{ctx}};
$prefix .= '> ' if $prefix; $prefix .= '> ' if $prefix;