r72871 - /trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm

[ghedo-guest at users.alioth.debian.org]

Author: ghedo-guest
Date: Wed Apr 20 18:18:19 2011
New Revision: 72871

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72871
Log:
restore original file (it was committed with patch applied :/)

Modified:
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm?rev=72871&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm Wed Apr 20 18:18:19 2011
@@ -156,7 +156,7 @@
 
     my $other = Moose::Util::TypeConstraints::find_type_constraint($type_or_name) or return;
 
-    return 1 if (0+$self == 0+$other);
+    return 1 if $self == $other;
 
     if ( $self->has_hand_optimized_type_constraint and $other->has_hand_optimized_type_constraint ) {
         return 1 if $self->hand_optimized_type_constraint == $other->hand_optimized_type_constraint;