From 440ace265440fd11fc6167e5b5956bb95822868e Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Mon, 11 Nov 2013 16:15:59 +0100
Subject: [PATCH] Fix syntax

---
 ACU/Trace.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/ACU/Trace.pm b/ACU/Trace.pm
index e4ae66e..d627b1e 100644
--- a/ACU/Trace.pm
+++ b/ACU/Trace.pm
@@ -108,7 +108,7 @@ sub getIds
 	my %tmp = $group->getIds($login);
 	while (my ($key, $value) = each %tmp)
 	{
-	    %ids{$key} = $value;
+	    $ids{$key} = $value;
 	}
     }
     return %ids;
@@ -223,13 +223,13 @@ sub getIds
     foreach my $group (@{ $self->{groups} })
     {
 	my %tmp = $group->getIds($login);
-	while (($key, $value) = each %tmp)
+	while (my ($key, $value) = each %tmp)
 	{
-	    %ids{$key} = $value;
+	    $ids{$key} = $value;
 	}
     }
 
-    %ids{ $self->{id} } = $self->getValue($self->{id}, $login);
+    $ids{ $self->{id} } = $self->getValue($self->{id}, $login);
 
     return %ids;
 }
@@ -238,7 +238,7 @@ sub getValue
 {
     my $self = shift;
     my $id = shift // $self->{id};
-    my $login = shift
+    my $login = shift;
 
     if ($id eq $self->{id})
     {
@@ -358,11 +358,11 @@ sub getIds
     {
 	while (my ($key, $value) = each %{ $self->{who}{values} })
 	{
-	    %ids{$key} = $value if ($key);
+	    $ids{$key} = $value if ($key);
 	}
     }
 
-    %ids{ $self->{id} } = $self->getValue($self->{id}, $login);
+    $ids{ $self->{id} } = $self->getValue($self->{id}, $login);
 
     return %ids;
 }