Faster grading
This commit is contained in:
parent
6e655751d4
commit
3a00d6344a
@ -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) {
|
||||
|
Reference in New Issue
Block a user