From: Guillermo Roditi <groditi@gmail.com>
Date: Tue, 13 Nov 2007 20:46:11 +0000 (+0000)
Subject: error message fixes.
X-Git-Tag: 0_46~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=232c4e13592a333e183c29d9e2b0f88cd18b0b42;p=gitmo%2FClass-MOP.git

error message fixes.
---

diff --git a/Changes b/Changes
index 1c733b6..63179a6 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Class-MOP.
 
+0.45
+    * Class::MOP::Attribute
+      - Fix error message on confess (groditi)
+
 0.44 Thurs. Nov. 13, 2007
     - Apparently I didn't make dist correctly (groditi)
 
diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 98228e8..938a96d 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -13,7 +13,7 @@ use Class::MOP::Method;
 
 use Class::MOP::Immutable;
 
-our $VERSION   = '0.44';
+our $VERSION   = '0.45';
 our $AUTHORITY = 'cpan:STEVAN';
 
 {
diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 559d282..b01da06 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -9,7 +9,7 @@ use Class::MOP::Method::Accessor;
 use Carp         'confess';
 use Scalar::Util 'blessed', 'reftype', 'weaken';
 
-our $VERSION   = '0.16';
+our $VERSION   = '0.17';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Class::MOP::Object';
@@ -96,7 +96,7 @@ sub initialize_instance_slot {
         if($builder = $instance->can($builder) ){
             $meta_instance->set_slot_value($instance, $self->name, $instance->$builder);
         } else {
-            confess(blessed($instance)." does not support builder method '$builder' for attribute '" . $self->name . "'");
+            confess(blessed($instance)." does not support builder method '". $self->{'$!builder'} ."' for attribute '" . $self->name . "'");
         }
     }
 }