[libtype-tiny-perl] 24/46: fix for RT#98458

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 1.001_000
in repository libtype-tiny-perl.

commit d9ad3feecb5671fcc2ea114e39282c092d7026fd
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Sun Aug 31 23:21:21 2014 +0100

    fix for RT#98458
---
 lib/Type/Utils.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/Type/Utils.pm b/lib/Type/Utils.pm
index c9ebf21..3c9ba41 100644
--- a/lib/Type/Utils.pm
+++ b/lib/Type/Utils.pm
@@ -516,9 +516,8 @@ sub classifier
 				require Types::TypeTiny;
 				$r = Moose::Util::TypeConstraints::find_type_constraint($_[0]);
 				$r = Types::TypeTiny::to_TypeTiny($r) if defined $r;
-				return 1;
 			}
-			return;
+			defined $r;
 		};
 		
 		my $mouse_lookup = sub
@@ -529,9 +528,8 @@ sub classifier
 				require Types::TypeTiny;
 				$r = Mouse::Util::TypeConstraints::find_type_constraint($_[0]);
 				$r = Types::TypeTiny::to_TypeTiny($r) if defined $r;
-				return 1;
 			}
-			return;
+			defined $r;
 		};
 		
 		my $meta;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtype-tiny-perl.git