{
my($class,$parent,@classes)=@_;
- @classes=[$class,@classes] if $class ne __PACKAGE__;
+ @classes=[$class,@classes] if $class ne __PACKAGE__ || !@classes;
for my $item (reverse @classes) {
my $pkg=(!ref($item) ? $item : $item->[0]);
my @args=@{$item}[1..$#$item] if ref $item;