X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FAttribute.pm;h=ce8e0cc33c929fd373aa21ffff541ec065664d51;hb=e76b01fb041ccbdd1ece1c070a6ccfb74ca1611e;hp=0cb31c853162a4e91c57f6c27af27b5d56f875ac;hpb=8ee74136c5d5c5a6416844e7238898f47b00f553;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 0cb31c8..ce8e0cc 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -257,7 +257,7 @@ sub associate_method {
 
 sub set_initial_value {
     my ($self, $instance, $value) = @_;
-    $self->set_initial_slot_value(
+    $self->_set_initial_slot_value(
         Class::MOP::Class->initialize(blessed($instance))->get_meta_instance,
         $instance,
         $value