Merge pull request #787 from zoffixznet/fix-approx-op

Fix RT#128421
rakudo · Jun 17, 2016 · 70c19dd · 70c19dd
2 parents 21f0be1 + ee915c3
commit 70c19dd
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -255,9 +255,7 @@ multi sub infix:<≅>(\a, \b, :$tolerance = $*TOLERANCE)    {
     # If operands are non-0, scale the tolerance to the larger of the abs values.
     # We test b first since $value ≅ 0 is the usual idiom and falsifies faster.
     if b && a && $tolerance {
-        my $a = a.abs;
-        my $b = b.abs;
-        abs($a - $b) < ($a max $b) * $tolerance;
+        abs(a - b) < (a.abs max b.abs) * $tolerance;
     }
     else {  # interpret tolerance as absolute
         abs(a.Num - b.Num) < $tolerance;