From b6b1c02dd09c67e6401ec1a3c1b9d1fa354d362a Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Sat, 21 Sep 2013 16:23:41 +0200
Subject: [PATCH] Fix substitution

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

diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index ac7bae7..793d403 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -84,7 +84,7 @@ sub grades_generate
 
 	    for my $login (grep { ( ! /^\./ ) && -f "$basedir/$year/$project_id/traces/$dir/$_" } readdir($dhm))
 	    {
-		$login = s/\.xml$//;
+		$login =~ s/\.xml$//;
 		if (! grep { /^\Q$login\E$/ } @logins) {
 		    push @logins, $login;
 		}