Re: [perl #64478] Pairs constructor :pair and :!pair do not work properly in Rakudo

[Илья]

Yet Another Approach

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
index 6939aac..c198252 100644
--- a/src/parser/actions.pm
+++ b/src/parser/actions.pm
@@ -2880,7 +2880,7 @@ method colonpair($/, $key) {
 
     if $key eq 'false' {
         $pair_key := PAST::Val.new( :value(~$<identifier>) );
-        $pair_val := PAST::Val.new( :value(0), :returns('Int') );
+        $pair_val := PAST::Var.new( :name('False'), :namespace('Bool'), :scope('package') );
     }
     elsif $key eq 'value' {
         $pair_key := PAST::Val.new( :value(~$<identifier>) );
@@ -2891,7 +2891,7 @@ method colonpair($/, $key) {
             }
         }
         else {
-            $pair_val := PAST::Val.new( :value(1), :returns('Int') );
+            $pair_val := PAST::Var.new( :name('True'), :namespace('Bool'), :scope('package') );
         }
     }
     elsif $key eq 'varname' {