From: Stevan Little Date: Thu, 7 Feb 2008 14:36:43 +0000 (+0000) Subject: whoops X-Git-Tag: 0_53~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e76b01fb041ccbdd1ece1c070a6ccfb74ca1611e;p=gitmo%2FClass-MOP.git whoops --- 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