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
7 This fixes test failures on recent Perl versions.
9 tp/Texinfo/Parser.pm | 4 ++--
10 1 file changed, 2 insertions(+), 2 deletions(-)
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($$$$)
18 } elsif ($command eq 'clickstyle') {
20 - if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
21 + if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) {
23 $self->{'clickstyle'} = $1;
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));
29 $self->line_error (sprintf($self->__(