From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 21 Dec 2008 23:00:34 +0000 (+0000)
Subject: We don't use RegExpr anywhere else, use the standard Regexp of RegexpRef names
X-Git-Tag: 0.64~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0286711be0399cb413be335a40ca9234857fd8e6;p=gitmo%2FMoose.git

We don't use RegExpr anywhere else, use the standard Regexp of RegexpRef names
---

diff --git a/Changes b/Changes
index 4e1e886..54550ce 100644
--- a/Changes
+++ b/Changes
@@ -1250,7 +1250,7 @@ Revision history for Perl extension Moose
           ArrayRef[Int]    # array or integers
           HashRef[Object]  # a hash with object values
       They can also be nested:
-          ArrayRef[HashRef[RegExpr]] # an array of hashes with regexpr values
+          ArrayRef[HashRef[RegexpRef]] # an array of hashes with regex values
       And work with the type unions as well:
           ArrayRef[Int | Str]  # array of integers of strings
 
diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 04e69f8..cac68ed 100644
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -647,7 +647,7 @@ sub _canonicalize_handles {
         }
         elsif ($handle_type eq 'Regexp') {
             ($self->has_type_constraint)
-                || $self->throw_error("Cannot delegate methods based on a RegExpr without a type constraint (isa)", data => $handles);
+                || $self->throw_error("Cannot delegate methods based on a Regexp without a type constraint (isa)", data => $handles);
             return map  { ($_ => $_) }
                    grep { /$handles/ } $self->_get_delegate_method_list;
         }