Warn on xor with sunk args due to bad precedence

Phixes #1389
rakudo · Jan 12, 2018 · 79600d6 · 79600d6
1 parent 90495b1
commit 79600d6
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -329,6 +329,15 @@ sub unwanted($ast, $by) {
         elsif $ast.op eq 'bind' {
             $ast.sunk(1);
         }
+        elsif $ast.op eq 'xor' {
+            my int $i := 1;
+            my int $elems := nqp::elems($ast);
+            while $i <= $e {
+                $ast[$i] := UNWANTED($ast[$i], $byby);
+                ++$i;
+            }
+            $ast.sunk: 1;
+        }
     }
     elsif nqp::istype($ast,QAST::Want) {
         $ast.sunk(1);