diff options
Diffstat (limited to 'lib/MGA/Advisories.pm')
-rw-r--r-- | lib/MGA/Advisories.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm index d321017..a69cf16 100644 --- a/lib/MGA/Advisories.pm +++ b/lib/MGA/Advisories.pm @@ -58,7 +58,10 @@ sub get_advisories_from_dir { my %advisories; foreach my $advfile (glob "$config->{advisories_dir}/*.adv") { my $adv = LoadFile($advfile); - next unless $adv->{ID}; + if (!$adv->{ID}) { + next unless $config->{mode} eq 'qa'; + $adv->{ID} = next_id('TODO', keys %advisories); + } report_exit("Duplicate advisory $adv->{ID}") if $advisories{$adv->{ID}}; report_exit("Unknown type $adv->{type}") unless $config->{advisory_types}{$adv->{type}}; |