diff options
| author | Fam Zheng <famz@redhat.com> | 2015-10-20 15:38:46 +0800 |
|---|---|---|
| committer | Paolo Bonzini <pbonzini@redhat.com> | 2015-11-02 14:50:27 +0100 |
| commit | aa5ccadcca3e6018ebd9d2e8b0a0604f7cb0cd59 (patch) | |
| tree | 0c9a53880f5c8ac282856082c8c66cb8e5f78dc0 /scripts | |
| parent | cc57501dee37376d0a2fbc5921e0f3a9ed4b117d (diff) | |
scripts/text2pod.pl: Escape left brace
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>
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/texi2pod.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/texi2pod.pl b/scripts/texi2pod.pl index 94097fb065..8767662d30 100755 --- a/scripts/texi2pod.pl +++ b/scripts/texi2pod.pl @@ -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"; |