stuff

diff --git a/Changes b/Changes
index 05c0f48..fa1e260 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
+0.26
+    * Class::MOP::Class
+      - added find_attribute_by_name method
+        - added tests and docs for this
+
 0.25 Thurs. April 20, 2006
     * Class::MOP::Class
       - added create_anon_class for creating anonymous classes

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index fc3626e..762c6a2 100644 (file)
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -217,11 +217,12 @@ sub version {
 
 sub superclasses {
     my $self = shift;
+    no strict 'refs';
     if (@_) {
         my @supers = @_;
-        @{$self->get_package_variable('@ISA')} = @supers;
+        @{$self->name . '::ISA'} = @supers;
     }
-    @{$self->get_package_variable('@ISA')};        
+    @{$self->name . '::ISA'};
 }
 
 sub class_precedence_list {