Archived
1
0

Faster grading

This commit is contained in:
Mercier Pierre-Olivier 2013-11-23 20:30:20 +01:00
parent 6e655751d4
commit 3a00d6344a

View File

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