Archived
1
0
Fork 0

Fix warning

This commit is contained in:
Mercier Pierre-Olivier 2013-11-11 16:57:44 +01:00
parent 62bd5f2d2a
commit fc595e9ee4

View file

@ -354,7 +354,8 @@ sub getIds
my $login = shift;
my %ids;
if (!$login || $self->{who}{type} eq "group" || $self->{who}{login} eq $login)
log TRACE, $self->{who};
if (!$login || !exists $self->{who} || $self->{who}{type} eq "group" || $self->{who}{login} eq $login)
{
while (my ($key, $value) = each %{ $self->{who}{values} })
{