Have $a op= $b call op() to get a value for $a if $a is not defined.

rakudo · Apr 29, 2010 · 4aeb5a2 · 4aeb5a2
1 parent 9d955f2
commit 4aeb5a2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/builtins/assign.pir b/src/builtins/assign.pir
@@ -85,6 +85,12 @@ src/builtins/assign.pir - assignment operations
     $P0 = find_lex '$opname'
     $S0 = $P0
     $P0 = get_global $S0
+    $P1 = a.'defined'()
+    if $P1 goto defined
+    $P2 = $P0()
+    $P1 = $P0($P2, b)
+    .tailcall '&infix:<=>'(a, $P1)
+  defined:
     $P1 = $P0(a, b)
     .tailcall '&infix:<=>'(a, $P1)
 .end