wok-next view 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 |
line source
1 Fix the following warnings when texinfo used:
3 Unescaped left brace in regex is deprecated here (and will be fatal in
4 Perl 5.32), passed through in regex; marked by <-- HERE in
5 m/^\s+@([[:alnum:]][[:alnum:]\-]*)({ <-- HERE })?\s*/
6 at /usr/share/texinfo/Texinfo/Parser.pm line 5481.
8 Unescaped left brace in regex is deprecated here (and will be fatal in
9 Perl 5.32), passed through in regex; marked by <-- HERE in
10 m/^\s+@([[:alnum:]][[:alnum:]\-]*)({ <-- HERE })?\s*(\@(c|comment)((\@|\s+).*)?)?/
11 at /usr/share/texinfo/Texinfo/Parser.pm line 5485.
13 --- a/tp/Texinfo/Parser.pm
14 +++ b/tp/Texinfo/Parser.pm
15 @@ -5478,11 +5478,11 @@
16 }
17 } elsif ($command eq 'clickstyle') {
18 # REMACRO
19 - if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
20 + if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) {
21 $args = ['@'.$1];
22 $self->{'clickstyle'} = $1;
23 $remaining = $line;
24 - $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
25 + $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
26 $has_comment = 1 if (defined($4));
27 } else {
28 $self->line_error (sprintf($self->__(