From 6c43f93dc9b0bd16f705d7e6b22b741539e3fd6a Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Fri, 26 Jun 2009 00:17:00 +0200
Subject: [PATCH] make eqv rely on infx:<===> more

---
 src/setting/Operators.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
index 91d3fdf0490..5173919c135 100644
--- 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;