advise on "elif", too

rakudo · Mar 12, 2013 · 838e03d · 838e03d
1 parent ed1dd58
commit 838e03d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1056,6 +1056,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         [
             [
             | 'else'\h*'if' <.typed_panic: 'X::Syntax::Malformed::Elsif'>
+            | 'elif' { $/.CURSOR.typed_panic('X::Syntax::Malformed::Elsif', what => "elif") }
             | 'elsif'\s <xblock>
             ]
         ]*

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -701,7 +701,8 @@ my class X::Syntax::UnlessElse does X::Syntax {
 }
 
 my class X::Syntax::Malformed::Elsif does X::Syntax {
-    method message() { 'please use "elsif" instead of "else if"' }
+    has $.what = 'else if';
+    method message() { qq{In Perl 6, please use "elsif' instead of "$.what"} }
 }
 
 my class X::Syntax::Reserved does X::Syntax {