Archived
1
0

Grades: fix globing exponentiation

This commit is contained in:
Mercier Pierre-Olivier 2014-01-14 00:58:44 +01:00
parent 6e70dc24ff
commit aa3b69f5b3
2 changed files with 2 additions and 4 deletions

View File

@ -352,7 +352,7 @@ sub compute ($$$;$$$)
{
my $value = 0;
for my $r (grep { match_glob($ref, $_); } keys %$ids) {
$value += $ids->{ $r };
$value += $ids->{ $r } if ($ref != $r);
}
$ids->{ $ref } = $value if ($value);
log DEBUG, "New globbing identifier caculated $ref: $value";

View File

@ -4,15 +4,13 @@ use v5.10.1;
use strict;
use warnings;
use lib "../../";
use ACU::API::Base;
use ACU::API::Projects;
if ($#ARGV == 0)
{
API::Projects::add($ARGV[0]);
API::Projects::add($ARGV[0], "");
}
else
{