Fix build with Perl 5.26.

Unescaped left brace in regex is illegal in regex when not used as a
quantifier.
- /foo{3}/ will match foofoofoo.
- /\\new{bar}/ is illegal and should be written as /\\new\{bar}/.

PR:		226817
Sponsored by:	Absolight

1 files changed, 27 insertions, 0 deletions

diff --git a/math/oleo/files/patch-doc_texi2html.in b/math/oleo/files/patch-doc_texi2html.in
index 64f19ec474ab..3a68b3e6840e 100644
--- a/math/oleo/files/patch-doc_texi2html.in
+++ b/math/oleo/files/patch-doc_texi2html.in
@@ -1,5 +1,23 @@
 --- doc/texi2html.in.orig	2000-04-08 12:20:05 UTC
 +++ doc/texi2html.in
+@@ -2752,7 +2752,7 @@ INPUT_LINE: while ($_ = &next_line) {
+     s/\@refill\s+//g;
+     # other 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
+     #
+     # analyze the tag again
+@@ -3174,7 +3174,7 @@ while (@lines) {
+     #
+     # xref
+     #
+-    while (/\@(x|px|info|)ref{([^{}]+)(}?)/) {
++    while (/\@(x|px|info|)ref\{([^{}]+)(\}?)/) {
+ 	# note: Texinfo may accept other characters
+ 	($type, $nodes, $full) = ($1, $2, $3);
+ 	($before, $after) = ($`, $');
 @@ -3790,9 +3790,9 @@ sub update_sec_num {
      my $ret;
  
@@ -21,3 +39,12 @@
  	{
  	  &incr_sec_num($level, @normal_sec_num);
  	} 
+@@ -4168,7 +4168,7 @@ sub substitute_style {
+     while ($changed) {
+ 	$changed = 0;
+ 	$done = '';
+-	while (/\@(\w+){([^\{\}]+)}/ || /\@(,){([^\{\}]+)}/) {
++	while (/\@(\w+)\{([^\{\}]+)\}/ || /\@(,)\{([^\{\}]+)\}/) {
+ 	    $text = &apply_style($1, $2);
+ 	    if ($text) {
+ 		$_ = "$`$text$'";