From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 28 Apr 2006 12:08:19 +0000 (+0000)
Subject: stuff
X-Git-Tag: 0_29_02~37
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cc54af368a157821045dcb0a03703af3cc589dc;p=gitmo%2FClass-MOP.git

stuff
---

diff --git a/examples/InsideOutClass.pod b/examples/InsideOutClass.pod
index aaf581a..036da24 100644
--- a/examples/InsideOutClass.pod
+++ b/examples/InsideOutClass.pod
@@ -30,7 +30,7 @@ sub set_slot_value {
 
 sub initialize_slot {
     my ($self, $instance, $slot_name) = @_;
-    $self->{meta}->add_package_variable('%' . $slot_name); 
+    $self->{meta}->add_package_variable(('%' . $slot_name) => {}); 
     $self->{meta}->get_package_variable('%' . $slot_name)->{refaddr $instance} = undef;
 }