Archived
1
0

Trace: fix warnings

This commit is contained in:
Mercier Pierre-Olivier 2013-11-21 21:28:45 +01:00
parent 7f418a06fe
commit a02ed70d5d

View File

@ -428,7 +428,7 @@ sub getValue
my $value = 0; my $value = 0;
if (!$login || !exists $self->{who} || $self->{who}{type} eq "group" || $self->{who}{login} eq $login) if (!$login || !exists $self->{who} || $self->{who}{type} eq "group" || $self->{who}{login} eq $login)
{ {
foreach my $key (%{ $self->{values} }) foreach my $key (keys %{ $self->{values} })
{ {
$value += $self->{values}{$key} if ($id eq $self->{id} || !$key || $key eq $id); $value += $self->{values}{$key} if ($id eq $self->{id} || !$key || $key eq $id);
} }