Header line regex was not quite right.

Note that the header line can look like this:

 --  ------ ---

… and this regex should match it.
This commit is contained in:
Bradley M. Kuhn 2020-09-23 17:07:16 -07:00
parent bd38cf6198
commit ee82738f0a
No known key found for this signature in database
GPG key ID: F15E8BD6D05E26B3

View file

@ -237,7 +237,7 @@ while (1) {
unless ($seenSeperator) {
if ($line =~ /^\s*$/) {
$seenSeperator = 1;
} elsif ($currentFormat eq 'text' and $line =~ /^\s*\-+\s*$/) {
} elsif ($currentFormat eq 'text' and $line =~ /^\s*[\-\s]+\s*$/) {
$seenSeperator = 1;
}
$prevLine = $line;