Permalink
Browse files

avoid undef warnings in infix:<eqv>

  • Loading branch information...
1 parent 7d6aa02 commit 16f22b86b12710a05168b8608f77a37e18effa9f @moritz moritz committed Sep 24, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 src/core/EnumMap.pm
  2. +1 −1 src/core/Numeric.pm
  3. +1 −1 src/core/Stringy.pm
View
@@ -110,7 +110,7 @@ my class EnumMap does Associative {
}
}
-multi sub infix:<eqv>(EnumMap $a, EnumMap $b) {
+multi sub infix:<eqv>(EnumMap:D $a, EnumMap:D $b) {
if +$a != +$b { return Bool::False }
for $a.kv -> $k, $v {
unless $b.exists($k) && $b{$k} eqv $v {
View
@@ -25,7 +25,7 @@ my role Numeric {
method pred() { self - 1 }
}
-multi sub infix:<eqv>(Numeric $a, Numeric $b) {
+multi sub infix:<eqv>(Numeric:D $a, Numeric:D $b) {
$a.WHAT === $b.WHAT && ($a cmp $b) == 0
}
View
@@ -1,6 +1,6 @@
my role Stringy { }
-multi sub infix:<eqv>(Stringy $a, Stringy $b) {
+multi sub infix:<eqv>(Stringy:D $a, Stringy:D $b) {
$a.WHAT === $b.WHAT && ($a cmp $b) == 0
}

0 comments on commit 16f22b8

Please sign in to comment.