Adwaith-Rajesh/gperf
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/gperf.git synced 2025-12-02 13:09:22 +00:00
Code Activity

Fix "Unescaped left brace in regex" warnings from Perl 5.26.

Browse Source 
Reported and patch by Jehan <jehan@girinstud.io> <jehan@zemarmot.net> at
<https://savannah.gnu.org/bugs/?54088>.

* doc/texi2html: Escape braces in regular expressions.
This commit is contained in:
Bruno Haible
2018-09-17 01:31:31 +02:00
parent 37045633d3
commit e828167f62
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@@ -1,3 +1,10 @@
2018-09-16 Bruno Haible <bruno@clisp.org>
Fix "Unescaped left brace in regex" warnings from Perl 5.26.
Reported and patch by Jehan <jehan@girinstud.io> <jehan@zemarmot.net> at
<https://savannah.gnu.org/bugs/?54088>.
* doc/texi2html: Escape braces in regular expressions.
2018-09-14 Bruno Haible <bruno@clisp.org> 2018-09-14 Bruno Haible <bruno@clisp.org>
doc: Assume texinfo 4.0 or newer. doc: Assume texinfo 4.0 or newer.

6
doc/texi2html
View File

@@ -879,7 +879,7 @@ while ($_ = &next_line) {
s/\@refill\s+//g; s/\@refill\s+//g;
# other substitutions # other substitutions
&simple_substitutions; &simple_substitutions;
s/\@value{($VARRE)}/$value{$1}/eg; s/\@value\{($VARRE)\}/$value{$1}/eg;
s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4 s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4
# #
# analyze the tag again # analyze the tag again
@@ -1204,7 +1204,7 @@ while (@lines) {
# #
# xref # xref
# #
while (/\@(x|px|info|)ref{($XREFRE)(}?)/o) { while (/\@(x|px|info|)ref\{($XREFRE)(\}?)/o) {
# note: Texinfo may accept other characters # note: Texinfo may accept other characters
($type, $nodes, $full) = ($1, $2, $3); ($type, $nodes, $full) = ($1, $2, $3);
($before, $after) = ($`, $'); ($before, $after) = ($`, $');
@@ -1810,7 +1810,7 @@ sub substitute_style {
while ($changed) { while ($changed) {
$changed = 0; $changed = 0;
$done = ''; $done = '';
while (/\@(\w+|"|\~|,|\^){([^\{\}]+)}/) { while (/\@(\w+|"|\~|,|\^)\{([^\{\}]+)\}/) {
$text = &apply_style($1, $2); $text = &apply_style($1, $2);
if ($text) { if ($text) {
$_ = "$`$text$'"; $_ = "$`$text$'";