X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=a0c88d7e7f69a2fa8c4c651a9cbc8a73fa54bd0f;hb=074a414dea92037837ef040f5b0c0e75d0c075a0;hp=f5ddb58ba2000fb1cd90d2a74cdb20dbc3117b2b;hpb=4340827365f467f303a3b68f9b279371b81292bc;p=gitmo%2FMouse.git

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index f5ddb58..a0c88d7 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -3,7 +3,7 @@ use 5.006_002;
 
 use Mouse::Exporter; # enables strict and warnings
 
-our $VERSION = '0.40';
+our $VERSION = '0.40_05';
 
 use Carp         qw(confess);
 use Scalar::Util qw(blessed);
@@ -12,6 +12,7 @@ use Mouse::Util qw(load_class is_class_loaded get_code_package not_supported);
 
 use Mouse::Meta::Module;
 use Mouse::Meta::Class;
+use Mouse::Meta::Role;
 use Mouse::Meta::Attribute;
 use Mouse::Object;
 use Mouse::Util::TypeConstraints ();
@@ -140,7 +141,7 @@ sub init_meta {
     });
 
     $meta->superclasses($base_class)
-        unless $meta->superclasses;
+        unless $class->isa($base_class);
 
     # make a class type for each Mouse class
     Mouse::Util::TypeConstraints::class_type($class)
@@ -159,7 +160,7 @@ Mouse - Moose minus the antlers
 
 =head1 VERSION
 
-This document describes Mouse version 0.40
+This document describes Mouse version 0.40_05
 
 =head1 SYNOPSIS
 
@@ -407,9 +408,9 @@ L<Class::MOP>
 
 =head1 AUTHORS
 
-Shawn M Moore, E<lt>sartak at gmail.comE<gt>
+Shawn M Moore E<lt>sartak at gmail.comE<gt>
 
-Yuval Kogman, E<lt>nothingmuch at woobling.orgE<gt>
+Yuval Kogman E<lt>nothingmuch at woobling.orgE<gt>
 
 tokuhirom