From ff17699bb4a4109590610c02b2d56324f56e1de7 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Thu, 9 Jun 2016 19:49:42 +0200
Subject: [PATCH] fix unescaped { in a regex (RT #106685)
The fix is done in the wrong place (the generated .pm instead
of the source .yp), but should be good enough for a distroprefs
file.
---
lib/Parse/Yapp/Parse.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Parse/Yapp/Parse.pm b/lib/Parse/Yapp/Parse.pm
index db561de..9651fa7 100755
--- a/lib/Parse/Yapp/Parse.pm
+++ b/lib/Parse/Yapp/Parse.pm
@@ -880,7 +880,7 @@ sub _Lexer {
return($1, [ $1, $lineno[0] ]);
};
- $$input=~/\G{/gc
+ $$input=~/\G\{/gc
and do {
my($level,$from,$code);
@@ -907,7 +907,7 @@ sub _Lexer {
and return('START',[ undef, $lineno[0] ]);
$$input=~/\G%(expect)/gc
and return('EXPECT',[ undef, $lineno[0] ]);
- $$input=~/\G%{/gc
+ $$input=~/\G%\{/gc
and do {
my($code);
--
2.1.4