Permalink
Browse files

Fix (my %) over-sharing.

  • Loading branch information...
1 parent dfefd94 commit bd9bc6ff017a78783a039282ae9e36f974af3d8a @jnthn jnthn committed Jan 11, 2013
Showing with 6 additions and 1 deletion.
  1. +6 −1 src/Perl6/Actions.pm
View
@@ -1706,8 +1706,13 @@ class Perl6::Actions is HLL::Actions does STDActions {
elsif $lex<also_uses> && $lex<also_uses>{$name} {
$/.CURSOR.typed_sorry('X::Redeclaration::Outer', symbol => $name);
}
+ make declare_variable($/, $past, ~$sigil, ~$twigil, ~$<variable><desigilname>, $<trait>, $<semilist>);
+ }
+ else {
+ my %cont_info := container_type_info($/, ~$sigil || '$', []);
+ make $*W.build_container_past(%cont_info,
+ $*W.create_container_descriptor(%cont_info<value_type>, 1, 'anon'));
}
- make declare_variable($/, $past, ~$sigil, ~$twigil, ~$<variable><desigilname>, $<trait>, $<semilist>);
}
sub declare_variable($/, $past, $sigil, $twigil, $desigilname, $trait_list, $shape?) {

0 comments on commit bd9bc6f

Please sign in to comment.