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

Search globing if ref is defined

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-26 11:38:17 +02:00
commit 20d78c5dae
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ACU/Grading.pm
View file

@ -342,6 +342,8 @@ sub compute ($$$;$$$)
$ref =~ s/\$LOGIN/$login/;
}
if (defined $ref)
{
my $glob = Tinyglob::tinyglob($ref);
if ($glob ne $ref)
{
@ -349,6 +351,7 @@ sub compute ($$$;$$$)
$value += $ids->{$_} while (grep { /^$glob$/ } keys %$ids);
$ids->{ $ref } = $value;
}
}
my $ret = undef;