From: Stevan Little <stevan.little@iinteractive.com>
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