Allow use of lexically declared classes as an r-value (that does the …

…right thing).
rakudo · Apr 26, 2010 · 6c52872 · 6c52872
1 parent 9fbb25c
commit 6c52872
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Perl6/Compiler/Package.pm b/src/Perl6/Compiler/Package.pm
@@ -218,6 +218,8 @@ method finish($block) {
             :name($!name), :isdecl(1),  :viviself($decl), :scope('lexical')
         ));
         @Perl6::Actions::BLOCK[0].symbol($!name, :scope('lexical'), :does_abstraction(1));
+        $block.blocktype('immediate');
+        $block.push(PAST::Var.new( :name($!name), :scope('lexical') ));
     }
     else {
         pir::die("Scope declarator " ~ $!scope ~ " is not supported on packages");