This enhances this test to allow perldiag to have the descriptions of
error messages to contain =item lists (previously only bullet item lists
were allowed).
my $severity_re = qr/ . (?: \| . )* /x; # A severity is a single char, but can
# be of the form 'S|P|W'
my @same_descr;
+my $depth = 0;
while (<$diagfh>) {
+ if (m/^=over/) {
+ $depth++;
+ next;
+ }
+ if (m/^=back/) {
+ $depth--;
+ next;
+ }
+
+ # Stuff deeper than main level is ignored
+ next if $depth != 1;
+
if (m/^=item (.*)/) {
$cur_entry = $1;
}
}
+if ($depth != 0) {
+ diag ("Unbalance =over/=back. Fix before proceeding; over - back = " . $depth);
+ exit(1);
+}
+
foreach my $cur_entry ( keys %entries) {
next if $entries{$cur_entry}{todo}; # If in this file, won't have a severity
if (! exists $entries{$cur_entry}{severity}