From 62b6490a72f589521bc90029fc674c92e696a41a Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Wed, 8 Jun 2016 21:47:03 +0200
Subject: [PATCH] fix "Unescaped left brace in regexp" errors with perl 5.25.1
Fixes RT #105643
---
lib/Parse/Eyapp/Parse.pm | 6 +++---
lib/Parse/Eyapp/Treeregexp.pm | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/Parse/Eyapp/Parse.pm b/lib/Parse/Eyapp/Parse.pm
index 0c0bd1a..6a9f2f5 100644
--- a/lib/Parse/Eyapp/Parse.pm
+++ b/lib/Parse/Eyapp/Parse.pm
@@ -3230,13 +3230,13 @@ sub _Lexer {
return($1, [ $1, $lineno[0] ]);
};
- $$input=~/\G\s*{/gc and return ('CODE', &slurp_perl_code()); # }
+ $$input=~/\G\s*\{/gc and return ('CODE', &slurp_perl_code()); # }
if($lexlevel == 0) {# In head section
$$input=~/\G%(left|right|nonassoc)/gc and return('ASSOC',[ uc($1), $lineno[0] ]);
- $$input=~/\G%{/gc
+ $$input=~/\G%\{/gc
and do {
my($code);
@@ -3312,7 +3312,7 @@ sub _Lexer {
# $$input=~/\G($LABEL)/gc
# and return('LABEL',[ $1, $lineno[0] ]);
- $$input=~/\G%begin\s*{/gc # }
+ $$input=~/\G%begin\s*\{/gc # }
and return ('BEGINCODE', &slurp_perl_code());
#********** research *************#
diff --git a/lib/Parse/Eyapp/Treeregexp.pm b/lib/Parse/Eyapp/Treeregexp.pm
index e72c5b2..44a04a7 100644
--- a/lib/Parse/Eyapp/Treeregexp.pm
+++ b/lib/Parse/Eyapp/Treeregexp.pm
@@ -1335,7 +1335,7 @@ sub _Lexer {
return('REGEXP', [$string, $tokenbegin, $options]);
};
- $input=~/\G%{/gc
+ $input=~/\G%\{/gc
and do {
my($code);
@@ -1347,7 +1347,7 @@ sub _Lexer {
return('Parse::Eyapp::Treeregexp::GLOBALCODE', [$code, $tokenbegin]);
};
- $input=~/\G{/gc
+ $input=~/\G\{/gc
and do {
my($level,$from,$code);
--
2.1.4