From d95def257bf3c9279906d9f7c4cca28363b1119a Mon Sep 17 00:00:00 2001
From: Moritz Lenz <mlenz@wvbh074.physik.uni-wuerzburg.de>
Date: Mon, 29 Jun 2009 10:23:11 +0200
Subject: [PATCH] test infix:<eqv>. Added variant for Code objects

---
 src/setting/Operators.pm | 1 +
 t/spectest.data          | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
index 475f9dd19f3..402149cf6c3 100644
--- a/src/setting/Operators.pm
+++ b/src/setting/Operators.pm
@@ -25,6 +25,7 @@ multi sub infix:<...> (@lhs, Code $generator) {
 
 multi sub infix:<eqv> (Num $a, Num $b) { $a === $b }
 multi sub infix:<eqv> (Str $a, Str $b) { $a === $b }
+multi sub infix:<eqv> (Code $a, Code $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;
diff --git a/t/spectest.data b/t/spectest.data
index 485c1b27e59..85adf2da396 100644
--- a/t/spectest.data
+++ b/t/spectest.data
@@ -120,6 +120,7 @@ S03-operators/context-forcers.t
 S03-operators/context.t
 S03-operators/cross-metaop.t
 S03-operators/equality.t
+S03-operators/eqv.t
 S03-operators/hyper.t
 S03-operators/increment.t
 S03-operators/inplace.t