patches/texinfo/perl-528-fixes

   1 >From 1f27900352e04ff4f19bec1c1e9635adad2be31c Mon Sep 17 00:00:00 2001
   2 From: Niko Tyni <ntyni@debian.org>
   3 Date: Fri, 18 May 2018 10:40:00 +0100
   4 Subject: [PATCH] Fix unescaped left braces in regexps, deprecated since Perl
   5  5.27.8
   6
   7 This fixes test failures on recent Perl versions.
   8 ---
   9  tp/Texinfo/Parser.pm | 4 ++--
  10  1 file changed, 2 insertions(+), 2 deletions(-)
  11
  12 diff --git a/tp/Texinfo/Parser.pm b/tp/Texinfo/Parser.pm
  13 index dc32ca2..c577aa9 100644
  14 --- a/tp/Texinfo/Parser.pm
  15 +++ b/tp/Texinfo/Parser.pm
  16 @@ -5478,11 +5478,11 @@ sub _parse_special_misc_command($$$$)
  17      }
  18    } elsif ($command eq 'clickstyle') {
  19      # REMACRO
  20 -    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
  21 +    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) {
  22        $args = ['@'.$1];
  23        $self->{'clickstyle'} = $1;
  24        $remaining = $line;
  25 -      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
  26 +      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
  27        $has_comment = 1 if (defined($4));
  28      } else {
  29        $self->line_error (sprintf($self->__(
  30 --
  31 2.17.0
  32