From: Dave Rolsky Date: Mon, 7 Sep 2009 17:19:49 +0000 (-0500) Subject: Add some vertical whitespace X-Git-Tag: 0.89_02~25 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ccba001380e076c68e26c1d530872d92604b7c83;p=gitmo%2FMoose.git Add some vertical whitespace --- diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm index b849e42..53497ad 100644 --- a/lib/Moose/Meta/Class.pm +++ b/lib/Moose/Meta/Class.pm @@ -147,16 +147,20 @@ sub make_immutable { if ( !$self->name->isa('Class::MOP::Object') ) { my @superclasses = grep { $_ ne 'Moose::Object' && $_ ne $self->name } $self->linearized_isa; + for my $superclass (@superclasses) { my $meta = Class::MOP::class_of($superclass); + next unless $meta && $meta->isa('Moose::Meta::Class'); next unless $meta->is_mutable; + Carp::cluck( "Calling make_immutable on " . $self->name . ", which has a mutable ancestor ($superclass)" ); last; } } + $self->SUPER::make_immutable(@_); }