Avoid braces warning in regen_perly.pl

diff --git a/perly.act b/perly.act
index 0b52df9..d5edcf7 100644 (file)
--- a/perly.act
+++ b/perly.act
@@ -1722,5 +1722,5 @@ case 2:
 
 /* Generated from:
  * 27cce68ad4844f1b8053bfc11206fb9f559e08be6cefd4a986aaa606c0e5fb38 perly.y
- * 53f57d7143a42b3c008841a14d158bcf9cab64b2904b07ef5e95051fe9a8a875 regen_perly.pl
+ * af56f4a86c1ef4bfc3d6a42ca6a75bb0adf9417da936013dca0d10b5eaa5efc4 regen_perly.pl
  * ex: set ro: */

diff --git a/perly.h b/perly.h
index 8ebae6e..558520c 100644 (file)
--- a/perly.h
+++ b/perly.h
@@ -248,5 +248,5 @@ typedef union YYSTYPE
 
 /* Generated from:
  * 27cce68ad4844f1b8053bfc11206fb9f559e08be6cefd4a986aaa606c0e5fb38 perly.y
- * 53f57d7143a42b3c008841a14d158bcf9cab64b2904b07ef5e95051fe9a8a875 regen_perly.pl
+ * af56f4a86c1ef4bfc3d6a42ca6a75bb0adf9417da936013dca0d10b5eaa5efc4 regen_perly.pl
  * ex: set ro: */

diff --git a/perly.tab b/perly.tab
index fedb166..c1402ca 100644 (file)
--- a/perly.tab
+++ b/perly.tab
@@ -1090,5 +1090,5 @@ static const toketypes yy_type_tab[] =
 
 /* Generated from:
  * 27cce68ad4844f1b8053bfc11206fb9f559e08be6cefd4a986aaa606c0e5fb38 perly.y
- * 53f57d7143a42b3c008841a14d158bcf9cab64b2904b07ef5e95051fe9a8a875 regen_perly.pl
+ * af56f4a86c1ef4bfc3d6a42ca6a75bb0adf9417da936013dca0d10b5eaa5efc4 regen_perly.pl
  * ex: set ro: */

diff --git a/regen_perly.pl b/regen_perly.pl
index 510cb3b..dba4178 100644 (file)
--- a/regen_perly.pl
+++ b/regen_perly.pl
@@ -268,7 +268,7 @@ sub make_type_tab {
     $types{$default_token} = 1;
 
     $tablines =~ /^\Qstatic const char *const yytname[] =\E\n
-           {\n
+           \{\n
            (.*?)
            ^};
            /xsm