require existing character before peeking delims

rakudo · Mar 23, 2015 · 9746e88 · 9746e88
1 parent a57affe
commit 9746e88
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -95,7 +95,6 @@ role STD {
     token babble($l, @base_tweaks?) {
         :my @extra_tweaks;
 
-        <.ws>
         [ <quotepair> <.ws>
             {
                 my $kv := $<quotepair>[-1].ast;
@@ -112,7 +111,7 @@ role STD {
             }
         ]*
 
-        $<B>=[<?>]
+        $<B>=[<?before .>]
         {
             # Work out the delimeters.
             my $c := $/.CURSOR;