typed exception X::Backslash::NonVariableDollar

rakudo · Nov 27, 2012 · 7bcefdd · 7bcefdd
1 parent aa635da
commit 7bcefdd
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -3273,7 +3273,7 @@ grammar Perl6::QGrammar is HLL::Grammar does STD {
         token escape:sym<$> {
             :my $*QSIGIL := '$';
             <?before '$'>
-            [ <EXPR=.LANG('MAIN', 'EXPR', 'y=')> || <.panic: "Non-variable \$ must be backslashed"> ]
+            [ <EXPR=.LANG('MAIN', 'EXPR', 'y=')> || { $*W.throw($/, 'X::Backslash::NonVariableDollar') } ]
         }
     }
 

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -806,6 +806,10 @@ my class X::Backslash::UnrecognizedSequence does X::Syntax {
     method message() { "Unrecognized backslash sequence: '\\$.sequence'" }
 }
 
+my class X::Backslash::NonVariableDollar does X::Syntax {
+    method message() { "Non-variable \$ must be backslashed" }
+}
+
 my class X::ControlFlow is Exception {
     has $.illegal;   # something like 'next'
     has $.enclosing; # ....  outside a loop