wok-next annotate texinfo/stuff/patches/texinfo-escape.patch @ rev 21723
busybox: update patches
author | Pascal Bellard <pascal.bellard@slitaz.org> |
---|---|
date | Tue Sep 01 10:44:52 2020 +0000 (2020-09-01) |
parents | |
children |
rev | line source |
---|---|
al@20905 | 1 Fix the following warnings when texinfo used: |
al@20905 | 2 |
al@20905 | 3 Unescaped left brace in regex is deprecated here (and will be fatal in |
al@20905 | 4 Perl 5.32), passed through in regex; marked by <-- HERE in |
al@20905 | 5 m/^\s+@([[:alnum:]][[:alnum:]\-]*)({ <-- HERE })?\s*/ |
al@20905 | 6 at /usr/share/texinfo/Texinfo/Parser.pm line 5481. |
al@20905 | 7 |
al@20905 | 8 Unescaped left brace in regex is deprecated here (and will be fatal in |
al@20905 | 9 Perl 5.32), passed through in regex; marked by <-- HERE in |
al@20905 | 10 m/^\s+@([[:alnum:]][[:alnum:]\-]*)({ <-- HERE })?\s*(\@(c|comment)((\@|\s+).*)?)?/ |
al@20905 | 11 at /usr/share/texinfo/Texinfo/Parser.pm line 5485. |
al@20905 | 12 |
al@20905 | 13 --- a/tp/Texinfo/Parser.pm |
al@20905 | 14 +++ b/tp/Texinfo/Parser.pm |
al@20905 | 15 @@ -5478,11 +5478,11 @@ |
al@20905 | 16 } |
al@20905 | 17 } elsif ($command eq 'clickstyle') { |
al@20905 | 18 # REMACRO |
al@20905 | 19 - if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) { |
al@20905 | 20 + if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) { |
al@20905 | 21 $args = ['@'.$1]; |
al@20905 | 22 $self->{'clickstyle'} = $1; |
al@20905 | 23 $remaining = $line; |
al@20905 | 24 - $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//; |
al@20905 | 25 + $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*(\@(c|comment)((\@|\s+).*)?)?//; |
al@20905 | 26 $has_comment = 1 if (defined($4)); |
al@20905 | 27 } else { |
al@20905 | 28 $self->line_error (sprintf($self->__( |