fail with a good error on non-identifier after sub

masak · Jan 19, 2015 · d8f72bf · d8f72bf
1 parent 662d9bf
commit d8f72bf
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/lib/_007/Parser.pm b/lib/_007/Parser.pm
@@ -80,7 +80,7 @@ class Parser {
         }
         token statement:block { <block> }
         rule statement:sub {
-            sub <identifier>
+            sub [<identifier> || <.panic "identifier">]
             :my $*insub = True;
             {
                 my $symbol = $<identifier>.Str;

diff --git a/t/syntax/errors.t b/t/syntax/errors.t
@@ -0,0 +1,13 @@
+use v6;
+use Test;
+use _007::Test;
+
+{
+    my $program = q:to/./;
+        sub !() {}
+        .
+
+    parse-error $program, X::Syntax::Missing, "must have a valid identifier after `sub`";
+}
+
+done;