Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

avoid undef warnings in infix:<eqv>

  • Loading branch information...
commit 16f22b86b12710a05168b8608f77a37e18effa9f 1 parent 7d6aa02
Moritz Lenz authored September 24, 2012
2  src/core/EnumMap.pm
@@ -110,7 +110,7 @@ my class EnumMap does Associative {
110 110
     }
111 111
 }
112 112
 
113  
-multi sub infix:<eqv>(EnumMap $a, EnumMap $b) {
  113
+multi sub infix:<eqv>(EnumMap:D $a, EnumMap:D $b) {
114 114
     if +$a != +$b { return Bool::False }
115 115
     for $a.kv -> $k, $v {
116 116
         unless $b.exists($k) && $b{$k} eqv $v {
2  src/core/Numeric.pm
@@ -25,7 +25,7 @@ my role Numeric {
25 25
     method pred() { self - 1 }
26 26
 }
27 27
 
28  
-multi sub infix:<eqv>(Numeric $a, Numeric $b) {
  28
+multi sub infix:<eqv>(Numeric:D $a, Numeric:D $b) {
29 29
     $a.WHAT === $b.WHAT && ($a cmp $b) == 0
30 30
 }
31 31
 
2  src/core/Stringy.pm
... ...
@@ -1,6 +1,6 @@
1 1
 my role Stringy { }
2 2
 
3  
-multi sub infix:<eqv>(Stringy $a, Stringy $b) {
  3
+multi sub infix:<eqv>(Stringy:D $a, Stringy:D $b) {
4 4
     $a.WHAT === $b.WHAT && ($a cmp $b) == 0
5 5
 }
6 6
 

0 notes on commit 16f22b8

Please sign in to comment.
Something went wrong with that request. Please try again.