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)
{
my $value = 0;
for my $r (grep { match_glob($ref, $_); } keys %$ids)
{
log DEBUG, "$glob match $r (expanded from $ref)";
for my $r (grep { match_glob($ref, $_); } keys %$ids) {
$value += $ids->{ $r };
}
log DEBUG, "New $ref is now $value";
$ids->{ $ref } = $value;
$ids->{ $ref } = $value if ($value);
}
};
if ($@) {