fix LTA panic

Closes #48.
masak · Jun 14, 2016 · c1d413d · c1d413d
1 parent 2231f59
commit c1d413d
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/lib/_007/Parser/Syntax.pm b/lib/_007/Parser/Syntax.pm
@@ -79,7 +79,7 @@ grammar _007::Parser::Syntax {
         <.newpad>
         '(' ~ ')' <parameterlist>
         <traitlist>
-        <blockoid>:!s
+        [<blockoid>|| <.panic("block")>]:!s
         <.finishpad>
     }
     token statement:return {

diff --git a/t/features/subs.t b/t/features/subs.t
@@ -248,4 +248,19 @@ use _007::Test;
     outputs $program, "Mr Bond\n", "it's OK to call your sub 'subtract'";
 }
 
+{
+    my $program = q:to/./;
+        sub fn()
+        .
+
+    my subset missing-block of X::Syntax::Missing where {
+        is(.what, "block", "got the right missing thing");
+        .what eq "block";
+    };
+
+    parse-error $program,
+        missing-block,
+        "parse error 'missing block' on missing block";
+}
+
 done-testing;