X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FUtil%2FTypeConstraints.pm;h=156d4c64261a6c0581770cacfef47f088d84d786;hb=c4fe165f59754f765c60f046d084049005550fd8;hp=e160ee39b812b410672999c36d0d8db6a8fa2435;hpb=376a56f70358287eb0d397f29a0a9dab5a0725ff;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index e160ee3..156d4c6 100644
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -224,11 +224,11 @@ sub enum ($;@) {
     my ($type_name, @values) = @_;
     (scalar @values >= 2)
         || confess "You must have at least two values to enumerate through";
-    my $regexp = join '|' => @values;
+    my %valid = map { $_ => 1 } @values;
 	_create_type_constraint(
 	    $type_name,
 	    'Str',
-	    sub { qr/^$regexp$/i }
+	    sub { $valid{$_} }
 	);    
 }