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

Faster grading

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-23 20:30:20 +01:00
parent 6e655751d4
commit 3a00d6344a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ACU/Grading.pm
View File

@ -348,8 +348,7 @@ sub compute ($$$;$$$)
{ {
eval eval
{ {
my $glob = glob_to_regex($ref); if ($ref =~ /\?|\*/)
if ($glob ne $ref)
{ {
my $value = 0; my $value = 0;
for my $r (grep { match_glob($ref, $_); } keys %$ids) { for my $r (grep { match_glob($ref, $_); } keys %$ids) {