Mark :my declarations as declarative for the purposes of LTM.

rakudo · Nov 18, 2011 · 81c23d2 · 81c23d2
1 parent ecc46f4
commit 81c23d2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -4359,7 +4359,7 @@ class Perl6::RegexActions is QRegex::P6Regex::Actions {
 
     method metachar:sym<:my>($/) {
         my $past := $<statement>.ast;
-        make QAST::Regex.new( $past, :rxtype('pastnode') );
+        make QAST::Regex.new( $past, :rxtype('pastnode'), :subtype('declarative') );
     }
 
     method metachar:sym<{ }>($/) {