when using goto on objects, must restore $self into @_...

This commit is contained in:
Colin Kuskie 2010-05-07 17:56:30 -07:00
parent 9162bd68c9
commit 6154044719

View file

@ -76,7 +76,7 @@ Returns an array of all attribute names across all meta classes.
=cut
sub get_all_attributes_list {
my $self = shift;
my ($self) = @_;
if ($self->is_immutable) {
return @{ $self->{__immutable}{get_all_attributes_list} ||= [ $self->_get_all_attributes_list ] };
}