From: Graham Knop <haarg@haarg.org>
Date: Sat, 22 Jun 2013 10:57:12 +0000 (-0400)
Subject: add workaround for perl 5.8.5 bug
X-Git-Tag: v0.36~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=28696c2e1c3e499b4613645f4d6ec02026c025aa

add workaround for perl 5.8.5 bug
---

diff --git a/lib/MooseX/Types/TypeDecorator.pm b/lib/MooseX/Types/TypeDecorator.pm
index 4278e79..2d1098d 100644
--- a/lib/MooseX/Types/TypeDecorator.pm
+++ b/lib/MooseX/Types/TypeDecorator.pm
@@ -16,6 +16,8 @@ use overload(
             my $tc = $self->{__type_constraint};
             return 0+$tc;
      },
+    # workaround for perl 5.8.5 bug
+    '==' => sub { 0+$_[0] == 0+$_[1] },
     '""' => sub {
     		my $self = shift @_;
     		if(blessed $self) {