return if !$serial_id;
# mortal anonymous class
+ # XXX: cleaning stash with threads causes panic/SEGV.
+ if(exists $INC{'threads.pm'}) {
+ # (caller)[2] indicates the caller's line number,
+ # which is zero when the current thread is joining.
+ return if( (caller)[2] == 0);
+ }
+
# @ISA is a magical variable, so we clear it manually.
@{$self->{superclasses}} = () if exists $self->{superclasses};
delete $METAS{$name};
$name =~ s/ $serial_id \z//xms;
-
no strict 'refs';
delete ${$name}{ $serial_id . '::' };
=head1 VERSION
-This document describes Mouse version 0.50_08
+This document describes Mouse version 0.69
+
+=head1 DESCRIPTION
+
+This class is a base class of Mouse classes and roles,
+which is a subset of Class::MOP::Class.
=head1 SEE ALSO