]>
Commit | Line | Data |
---|---|---|
70b68161 MK |
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 |