X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FClass.pm;h=afd2789c1f60a41a9c18906c00abe3b1d92363c6;hb=fdbdb5e6eb0e4f6c54629f0bde376aba5e69df14;hp=96d14025ad42996f813e99a3f0a39013818aa359;hpb=d7290c9951e877a3f22ebc5220e00cb75665e9db;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm index 96d1402..afd2789 100644 --- a/lib/Class/MOP/Class.pm +++ b/lib/Class/MOP/Class.pm @@ -70,6 +70,7 @@ sub construct_class_instance { : blessed($class)) : $class); + $class = blessed($class) || $class; # now create the metaclass my $meta; if ($class =~ /^Class::MOP::Class$/) {