Compile time error for hash variable in regex, where possible

Improves on #1367 a bit
rakudo · Jan 6, 2018 · 34160bf · 34160bf
1 parent 00797d0
commit 34160bf
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -9990,6 +9990,10 @@ class Perl6::RegexActions is QRegex::P6Regex::Actions does STDActions {
             }
         }
 
+        if $<var><sigil> eq '%' {
+            $<var>.typed_panic('X::Syntax::Reserved', :reserved('use of hash variables in regexes'))
+        }
+
         # Otherwise, slow path that checks what we have.
         make QAST::Regex.new(QAST::NodeList.new(
                 QAST::SVal.new( :value('INTERPOLATE') ),