[6331] \{ where needed for perl 5.22.0

[karl]

Revision: 6331
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6331
Author:   karl
Date:     2015-06-10 22:59:45 +0000 (Wed, 10 Jun 2015)
Log Message:
-----------
\{ where needed for perl 5.22.0

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/doc/refcard/txicmdcheck

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2015-06-10 21:52:50 UTC (rev 6330)
+++ trunk/ChangeLog     2015-06-10 22:59:45 UTC (rev 6331)
@@ -1,7 +1,13 @@
+2015-06-10  Karl Berry  <address@hidden>
+
+       * doc/refcard/txicmdcheck (read_refcard): \escape all the {
+       due to new warning in perl 5.22.0.  Also \escape the }
+       for consistency.
+
 2015-06-09  Gavin Smith  <address@hidden>
 
        * info/indices.c (info_virtual_index): Change type of a local 
-       variable to match expected type of argument to next_index_match.        
+       variable to match expected type of argument to next_index_match.
        * info/dir.c (dir_entry_of_infodir),
        * info/info-utils.c (info_get_menu_entry_by_label): Add 
        parentheses around assignment for clarity.

Modified: trunk/doc/refcard/txicmdcheck
===================================================================
--- trunk/doc/refcard/txicmdcheck       2015-06-10 21:52:50 UTC (rev 6330)
+++ trunk/doc/refcard/txicmdcheck       2015-06-10 22:59:45 UTC (rev 6331)
@@ -98,11 +98,11 @@
     next unless /^\\txicmd/;
     chomp;
     my $xcmd = 0;
-    s/\\txicmdarg{.*?}}?//; # first get rid of the arguments
-    s/}{.*//;               # then the descriptions
-    s/^\\txicmdx{// && ($xcmd = 1);  # used for the @def...x
-    s/^\\txicmd{//;         # finally the markup cmd itself
-    s/\\ttbraced{}//g;      # quote cmd list
+    s/\\txicmdarg\{.*?\}\}?//; # first get rid of the arguments
+    s/\}\{.*//;                # then the descriptions
+    s/^\\txicmdx\{// && ($xcmd = 1);  # used for the @def...x
+    s/^\\txicmd\{//;           # finally the markup cmd itself
+    s/\\ttbraced\{\}//g;       # quote cmd list
     
     my (@cmds) = split (/,? +/, $_);  # occasionally we combine cmds