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

13
ACU/Grading.pm
View file

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