mirrors/qemu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scripts/text2pod.pl: Escape left brace

Browse Source 
Latest perl now deprecates "{" literal in regex and print warnings like
"unescaped left brace in regex is deprecated".  Add escapes to keep it
happy.

Signed-off-by: Fam Zheng <famz@redhat.com>

Message-Id: <1445326726-16031-1-git-send-email-famz@redhat.com>
Signed-off-by: Paolo Bonzini <pbonzini@redhat.com>
This commit is contained in:
Fam Zheng 2015-10-20 15:38:46 +08:00 committed by Paolo Bonzini
parent cc57501dee
commit aa5ccadcca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/texi2pod.pl
View File

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