diff --git a/src/core/metaops.pm b/src/core/metaops.pm index eb0deb0a661..2ec4d98cd7c 100644 --- a/src/core/metaops.pm +++ b/src/core/metaops.pm @@ -3,9 +3,9 @@ sub METAOP_ASSIGN(\$op) { -> Mu \$a, Mu \$b { $a = $op( $a // $op(), $b) } } -sub METAOP_TEST_ASSIGN:(\$lhs, $rhs) is rw { $lhs // ($lhs = $rhs()) } -sub METAOP_TEST_ASSIGN:<||>(\$lhs, $rhs) is rw { $lhs || ($lhs = $rhs()) } -sub METAOP_TEST_ASSIGN:<&&>(\$lhs, $rhs) is rw { $lhs && ($lhs = $rhs()) } +sub METAOP_TEST_ASSIGN:(Mu \$lhs, Mu $rhs) is rw { $lhs // ($lhs = $rhs()) } +sub METAOP_TEST_ASSIGN:<||>(Mu \$lhs, Mu $rhs) is rw { $lhs || ($lhs = $rhs()) } +sub METAOP_TEST_ASSIGN:<&&>(Mu \$lhs, Mu $rhs) is rw { $lhs && ($lhs = $rhs()) } sub METAOP_NEGATE(\$op) { -> Mu \$a, Mu \$b { !$op($a,$b) }