Fix compilation with perl > 5.22

This commit is contained in:
Luke Usher 2017-12-21 19:51:57 +00:00
parent 1d968aa47b
commit 5f5703117b
1 changed files with 1 additions and 1 deletions

View File

@ -317,7 +317,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
$column =~ s/^\@strong{(.*)}$/$1/;
$column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";