Unbust ... stubbing of packages.

rakudo · Jun 10, 2011 · 06322a3 · 06322a3
1 parent bf3b966
commit 06322a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -905,7 +905,8 @@ class Perl6::Actions is HLL::Actions {
         # just yet.
         if pir::substr__Ssii($<blockoid><statementlist><statement>[0], 0, 3) eq '...' {
             $*ST.add_stub_to_check($*PACKAGE);
-            make $*ST.get_slot_past_for_object($*PACKAGE);
+            $block.blocktype('declaration');
+            make PAST::Stmts.new( $block, $*ST.get_slot_past_for_object($*PACKAGE) );
             return 1;
         }