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/;
}
my $glob = Tinyglob::tinyglob($ref);
if ($glob ne $ref)
if (defined $ref)
{
my $value = 0;
$value += $ids->{$_} while (grep { /^$glob$/ } keys %$ids);
$ids->{ $ref } = $value;
my $glob = Tinyglob::tinyglob($ref);
if ($glob ne $ref)
{
my $value = 0;
$value += $ids->{$_} while (grep { /^$glob$/ } keys %$ids);
$ids->{ $ref } = $value;
}
}
my $ret = undef;