From 663a77a084acf523970e8fd66eb75ac327d8385e Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Wed, 2 Oct 2013 18:30:53 +0200
Subject: [PATCH] Fix cast

---
 process/projects/get_csv.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/process/projects/get_csv.pl b/process/projects/get_csv.pl
index 29a4311..f751391 100644
--- a/process/projects/get_csv.pl
+++ b/process/projects/get_csv.pl
@@ -77,7 +77,7 @@ sub process
 
     for my $login (keys %grades) {
 	$out .= "$login";
-	my @ugrades = \$grades{$login};
+	my @ugrades = @{ $grades{$login} };
 	for my $header (@headers)
 	{
 	    my $g = shift @ugrades;