tweaking &create

diff --git a/Changes b/Changes
index d0a89c5..f151906 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
+0.29_02
+    * Class::MOP::Class
+      - small change in &create so that it behaves 
+        properly when inherited
+
 0.29_01 Fri. May 12, 2006
     ++ DEVELOPER RELEASE ++
       - This release works in combination with 

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index de7204c..a06c124 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -11,7 +11,7 @@ use Class::MOP::Class;
 use Class::MOP::Attribute;
 use Class::MOP::Method;
 
-our $VERSION = '0.29_01';
+our $VERSION = '0.29_02';
 
 ## ----------------------------------------------------------------------------
 ## Setting up our environment ...

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index c66bb05..8287fb2 100644 (file)
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -9,7 +9,7 @@ use Scalar::Util 'blessed', 'reftype', 'weaken';
 use Sub::Name    'subname';
 use B            'svref_2object';
 
-our $VERSION = '0.14';
+our $VERSION = '0.15';
 
 use Class::MOP::Instance;
 
@@ -173,7 +173,7 @@ sub create {
     my $meta = $class->initialize($package_name);
     
     $meta->add_method('meta' => sub { 
-        Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
+        $class->initialize(blessed($_[0]) || $_[0]);
     });
     
     $meta->superclasses(@{$options{superclasses}})