SliTaz Repositories

     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/texinfo/stuff/patches/texinfo-escape.patch	Fri Apr 17 17:54:29 2020 +0100
     1.3 @@ -0,0 +1,28 @@
     1.4 +Fix the following warnings when texinfo used:
     1.5 +
     1.6 +Unescaped left brace in regex is deprecated here (and will be fatal in
     1.7 +Perl 5.32), passed through in regex; marked by <-- HERE in
     1.8 +m/^\s+@([[:alnum:]][[:alnum:]\-]*)({ <-- HERE })?\s*/
     1.9 +at /usr/share/texinfo/Texinfo/Parser.pm line 5481.
    1.10 +
    1.11 +Unescaped left brace in regex is deprecated here (and will be fatal in
    1.12 +Perl 5.32), passed through in regex; marked by <-- HERE in
    1.13 +m/^\s+@([[:alnum:]][[:alnum:]\-]*)({ <-- HERE })?\s*(\@(c|comment)((\@|\s+).*)?)?/
    1.14 +at /usr/share/texinfo/Texinfo/Parser.pm line 5485.
    1.15 +
    1.16 +--- a/tp/Texinfo/Parser.pm
    1.17 ++++ b/tp/Texinfo/Parser.pm
    1.18 +@@ -5478,11 +5478,11 @@
    1.19 +     }
    1.20 +   } elsif ($command eq 'clickstyle') {
    1.21 +     # REMACRO
    1.22 +-    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
    1.23 ++    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) {
    1.24 +       $args = ['@'.$1];
    1.25 +       $self->{'clickstyle'} = $1;
    1.26 +       $remaining = $line;
    1.27 +-      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
    1.28 ++      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
    1.29 +       $has_comment = 1 if (defined($4));
    1.30 +     } else {
    1.31 +       $self->line_error (sprintf($self->__(