From a5f6916df4aa8566b3cfed744dddce55e0dd30aa Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Fri, 20 Sep 2013 18:13:10 +0200
Subject: [PATCH] Separate lines

---
 process/files/intradata_get.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index 7051d65..886fe29 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -71,7 +71,7 @@ sub grades_new_bonus
 	my $kbonus = $kfile;
 	$kbonus =~ s/[^a-zA-Z0-9_-]/_/g;
 
-	my @lines = ($args->{files}{$kfile} =~ tr/\n//);
+	my @lines = split(/\n/, $args->{files}{$kfile});
 
 	log TRACE, $args->{files}{$kfile};
 	log TRACE, @lines;
@@ -84,8 +84,6 @@ sub grades_new_bonus
 	    shift @lines;
 	}
 
-	log TRACE, @lines;
-
 	for my $line (@lines)
 	{
 	    if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/)