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