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

Ok :)

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-23 20:11:53 +01:00
parent be336da8d6
commit 6e655751d4
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ACU/Grading.pm
View File

@ -352,13 +352,10 @@ sub compute ($$$;$$$)
if ($glob ne $ref) if ($glob ne $ref)
{ {
my $value = 0; my $value = 0;
for my $r (grep { match_glob($ref, $_); } keys %$ids) for my $r (grep { match_glob($ref, $_); } keys %$ids) {
{
log DEBUG, "$glob match $r (expanded from $ref)";
$value += $ids->{ $r }; $value += $ids->{ $r };
} }
log DEBUG, "New $ref is now $value"; $ids->{ $ref } = $value if ($value);
$ids->{ $ref } = $value;
} }
}; };
if ($@) { if ($@) {