Show warnings if something looks wrong

This makes no difference to the output.

Signed-off-by: Gilles Peskine <[email protected]>
This commit is contained in:
Gilles Peskine
2021-08-02 22:59:16 +02:00
parent 000a231e3c
commit 915f258c32
+2 -1
View File
@@ -48,6 +48,7 @@
# **********
use strict;
use warnings;
my ($include_dir, $data_dir, $error_file);
@@ -111,7 +112,7 @@ foreach my $file (@files) {
# Discard Doxygen comments that are coincidentally present before
# an error definition but not attached to it. This is ad hoc, based
# on what actually matters (or mattered at some point).
undef $before if $before =~ /\s*\\name\s/s;
undef $before if defined($before) && $before =~ /\s*\\name\s/s;
die "Description neither before nor after $name in $file\n"
if !defined($before) && !defined($after);
die "Description both before and after $name in $file\n"