Archived
1
0
Fork 0

Fix warning

This commit is contained in:
Mercier Pierre-Olivier 2013-11-11 16:37:36 +01:00
parent add1bb5db9
commit 62bd5f2d2a

View file

@ -374,7 +374,7 @@ sub getValue
my $login = shift; my $login = shift;
my $value = 0; my $value = 0;
if (!$login || $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 (%{ $self->{values} })
{ {