[Yapsi] fixed faulty <!after> workaround

Always take care when you deploy your workarounds, so that they retain the original meaning of the thing being replaced. Otherwise, things will start to fail, and you'll have to debug them.
masak · Aug 9, 2010 · b3af4ad · b3af4ad
1 parent e4ed4ab
commit b3af4ad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Yapsi.pm b/lib/Yapsi.pm
@@ -9,8 +9,8 @@ grammar Yapsi::Perl6::Grammar {
     regex statementlist { <statement> ** <eat_terminator> }
     token statement { <statement_control> || <expression> || '' }
     # RAKUDO: <?after '{'> NYRI [perl #76894]
-    token eat_terminator { <?{ $/.CURSOR.pos > 1
-                               && $_PROGRAM.substr($/.CURSOR.pos - 1, 1) eq "\{"
+    regex eat_terminator { <?{ $/.CURSOR.pos > 0
+                               && $_PROGRAM.substr($/.CURSOR.pos - 1, 1) eq '}'
                            }> \n
                            || <.ws> ';' }
     token expression { <assignment> || <binding> || <variable> || <literal>