infix:<eqv> for numeric types (did not work with rats)

rakudo · Jun 22, 2010 · 7b089e5 · 7b089e5
1 parent ad2afb5
commit 7b089e5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -464,6 +464,10 @@ our multi sub infix:<eqv>(EnumMap $a, EnumMap $b) {
     Bool::True;
 }
 
+our multi sub infix:<eqv>(Numeric $a, Numeric $b) {
+    $a.WHAT === $b.WHAT && ($a cmp $b) == 0;
+}
+
 our multi sub infix:<Z>($lhs, $rhs) {
     my $lhs-list = flat($lhs.list);
     my $rhs-list = flat($rhs.list);