wok-next annotate texinfo/stuff/patches/texinfo-escape.patch @ rev 20957

Random updates
author Aleksej Bobylev <al.bobylev@gmail.com>
date Wed Sep 05 15:26:05 2018 +0300 (2018-09-05)
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->__(