From 62bd5f2d2a0c2f8130684a656a3e03206653ec86 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Mon, 11 Nov 2013 16:37:36 +0100
Subject: [PATCH] Fix warning

---
 ACU/Trace.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ACU/Trace.pm b/ACU/Trace.pm
index f036e9b..33dd018 100644
--- a/ACU/Trace.pm
+++ b/ACU/Trace.pm
@@ -374,7 +374,7 @@ sub getValue
     my $login = shift;
 
     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} })
 	{