epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Fix

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-26 12:58:42 +02:00
parent 316f0d6bd9
commit c9e4aa3279
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ACU/Grading.pm
View file

@ -348,7 +348,9 @@ sub compute ($$$;$$$)
if ($glob ne $ref) if ($glob ne $ref)
{ {
my $value = 0; my $value = 0;
$value += $ids->{$_} while (grep { /^$glob$/ } keys %$ids); for my $r (grep { /^$glob$/ } keys %$ids) {
$value += $ids->{ $r };
}
$ids->{ $ref } = $value; $ids->{ $ref } = $value;
} }
} }