Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

//= and friends should be able to handle Mu

  • Loading branch information...
commit 71a56324447e38cd0993ceb8b5da330b982aded8 1 parent 9103333
@moritz moritz authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/core/metaops.pm
View
6 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) }
Please sign in to comment.
Something went wrong with that request. Please try again.