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

Use globing in notation

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-26 10:55:56 +02:00
commit 6952c85c5b
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ACU/Grading.pm
View file

@ -7,6 +7,8 @@ use strict;
use warnings; use warnings;
use XML::LibXML; use XML::LibXML;
use ACU::Tinyglob;
sub new sub new
{ {
my $class = shift; my $class = shift;
@ -340,6 +342,14 @@ sub compute ($$$;$$$)
$ref =~ s/\$LOGIN/$login/; $ref =~ s/\$LOGIN/$login/;
} }
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; my $ret = undef;
my $result = ( my $result = (