Fix END handling, to win back another test.

rakudo · Jul 9, 2012 · 3595580 · 3595580
1 parent a466813
commit 3595580
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/QPerl6/World.pm b/src/QPerl6/World.pm
@@ -1330,7 +1330,7 @@ class QPerl6::World is HLL::World {
         elsif $phaser eq 'END' {
             $*UNIT[0].push(QAST::Op.new(
                 :op('callmethod'), :name('unshift'),
-                PAST::Var.new( :name('@*END_PHASERS'), :scope('contextual') ),
+                QAST::Var.new( :name('@*END_PHASERS'), :scope('contextual') ),
                 QAST::WVal.new( :value($block) )
             ));
             return QAST::Var.new(:name('Nil'), :scope('lexical'));