From 71a56324447e38cd0993ceb8b5da330b982aded8 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Wed, 6 Jun 2012 12:00:25 +0200
Subject: [PATCH] //= and friends should be able to handle Mu

---
 src/core/metaops.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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) }