Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

avoid undef warnings in infix:<eqv>

  • Loading branch information...
commit 16f22b86b12710a05168b8608f77a37e18effa9f 1 parent 7d6aa02
Moritz Lenz moritz authored
2  src/core/EnumMap.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 {
2  src/core/Numeric.pm
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
}
2  src/core/Stringy.pm
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
}
Please sign in to comment.
Something went wrong with that request. Please try again.