make eqv rely on infx:<===> more

rakudo · Jun 25, 2009 · 6c43f93 · 6c43f93
1 parent 9e9c3cc
commit 6c43f93
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -17,8 +17,8 @@ multi sub infix:<...> (@lhs, Code $generator) {
     return @result;
 }
 
-multi sub infix:<eqv> (Int $a, Int $b) { $a == $b }
-multi sub infix:<eqv> (Str $a, Str $b) { $a eq $b }
+multi sub infix:<eqv> (Num $a, Num $b) { $a === $b }
+multi sub infix:<eqv> (Str $a, Str $b) { $a === $b }
 multi sub infix:<eqv> (Positional $a, Positional $b) {
     return Bool::False unless $a.WHAT === $b.WHAT;
     return Bool::False unless $a.elems == $b.elems;