[nqp]: Allow comments after statement-terminating close brace (TT #13…

…07).
perl6 · Nov 18, 2009 · 8aa6c0f · 8aa6c0f
1 parent da7048b
commit 8aa6c0f
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -23,7 +23,10 @@ token deflongname {
 }
 
 token ENDSTMT {
-    [ \h* $$ <.ws> <?MARKER('endstmt')> ]?
+    [ 
+    | \h* $$ <.ws> <?MARKER('endstmt')>
+    | <.unv>? $$ <.ws> <?MARKER('endstmt')>
+    ]?
 }
 
 token ws {
@@ -36,6 +39,15 @@ token ws {
         <?MARKER('ws')>
 }
 
+token unv {
+    # :dba('horizontal whitespace')
+    [
+    | ^^ <?before \h* '=' [ \w | '\\'] > <.pod_comment>
+    | \h* '#' \N*
+    | \h+
+    ]
+}
+
 token pod_comment {
     ^^ \h* '='
     [

diff --git a/t/nqp/05-comments.t b/t/nqp/05-comments.t
@@ -11,3 +11,6 @@ say("ok 2"); #Comment following
 
 #say("not ok 3");
 #          say("not ok 4");
+
+{ say('ok 3'); } # comment
+{ say('ok 4'); }