|
Lines 2455-2460
Link Here
|
| 2455 |
$meta{$rulename} .= "\$self->{'tests_already_hit'}->{'$token'} "; |
2455 |
$meta{$rulename} .= "\$self->{'tests_already_hit'}->{'$token'} "; |
| 2456 |
$setup_rules{$token}=1; |
2456 |
$setup_rules{$token}=1; |
| 2457 |
|
2457 |
|
|
|
2458 |
if (!exists $self->{conf}->{scores}->{$token}) { |
| 2459 |
$self->{rule_errors}++; # flag to --lint that there was an error ... |
| 2460 |
my $msg = |
| 2461 |
"rules: meta test $rulename has undefined dependency '$token'"; |
| 2462 |
if ($self->{main}->{lint_rules}) { |
| 2463 |
warn $msg."\n"; |
| 2464 |
} |
| 2465 |
else { |
| 2466 |
info($msg); |
| 2467 |
} |
| 2468 |
} |
| 2469 |
elsif ($self->{conf}->{scores}->{$token} == 0) { |
| 2470 |
$self->{rule_errors}++; # flag to --lint that there was an error ... |
| 2471 |
my $msg = |
| 2472 |
"rules: meta test $rulename has dependency '$token' with a zero score"; |
| 2473 |
if ($self->{main}->{lint_rules}) { |
| 2474 |
warn $msg."\n"; |
| 2475 |
} |
| 2476 |
else { |
| 2477 |
info($msg); |
| 2478 |
} |
| 2479 |
} |
| 2480 |
|
| 2458 |
# If the token is another meta rule, add it as a dependency |
2481 |
# If the token is another meta rule, add it as a dependency |
| 2459 |
push (@{ $rule_deps{$rulename} }, $token) |
2482 |
push (@{ $rule_deps{$rulename} }, $token) |
| 2460 |
if (exists $self->{conf}{meta_tests}->{$priority}->{$token}); |
2483 |
if (exists $self->{conf}{meta_tests}->{$priority}->{$token}); |
