[8007] escape braces in regex

[gavinsmith0123]

Revision: 8007
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8007
Author:   gavin
Date:     2018-07-13 11:31:28 -0400 (Fri, 13 Jul 2018)
Log Message:
-----------
escape braces in regex

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-06-04 19:51:36 UTC (rev 8006)
+++ trunk/ChangeLog     2018-07-13 15:31:28 UTC (rev 8007)
@@ -1,3 +1,9 @@
+2018-07-13  Niko Tyni <address@hidden>  (tiny change)
+
+       * tp/Texinfo/Parser.pm (_parse_special_misc_command) <@clickstyle>:
+       Escape braces in regex to be compatible with recent Perl 
+       versions.
+
 2018-06-04  Gavin Smith  <address@hidden>
 
        * tp/Texinfo/Transformations.pm (_reference_to_arg):

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-06-04 19:51:36 UTC (rev 8006)
+++ trunk/tp/Texinfo/Parser.pm  2018-07-13 15:31:28 UTC (rev 8007)
@@ -5531,11 +5531,11 @@
     }
   } elsif ($command eq 'clickstyle') {
     # REMACRO
-    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
+    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) {
       $args = ['@'.$1];
       $self->{'clickstyle'} = $1;
       $remaining = $line;
-      $remaining =~ 
s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
+      $remaining =~ 
s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
       $has_comment = 1 if (defined($4));
     } else {
       $self->line_error (sprintf($self->__(