r72871 - /trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Wed Apr 20 18:18:58 UTC 2011
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;
More information about the Pkg-perl-cvs-commits
mailing list