Fix :foo and :!foo breakage spotted by moritz++.

rakudo · Jun 24, 2011 · 7963293 · 7963293
1 parent 067b038
commit 7963293
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -727,10 +727,10 @@ class Perl6::Actions is HLL::Actions {
                 make make_pair($*key, $*value.ast);
             }
             elsif $*value == 0 {
-                make make_pair($*key, PAST::Var.new( :name('False'), :namespace('Bool'), :scope('package') ));
+                make make_pair($*key, PAST::Op.new( :pirop('perl6_booleanize PI'), 0 ));
             }
             else {
-                make make_pair($*key, PAST::Var.new( :name('True'), :namespace('Bool'), :scope('package') ));
+                make make_pair($*key, PAST::Op.new( :pirop('perl6_booleanize PI'), 1 ));
             }
         }
         elsif $<fakesignature> {