if (AvARYLEN(thing)) {
if (check_new(tv, AvARYLEN(thing))) {
total_size += thing_size(AvARYLEN(thing), tv);
}
}
####
perl -MDevel::Peek -MDevel::Size=total_size -wle'
my @a = qw( a b c );
Dump(\@a,1); # Shows no magic
print total_size \@a; # 224
Dump(\@a,1); # Shows magic
$#a=$#a; # Add magic
Dump(\@a,1); # Shows magic
print total_size \@a; # 224
'
####
perl -MDevel::Peek -MDevel::Size=total_size -wle'
my @a = qw( a b c );
Dump(\@a,1); # Shows no magic
print total_size \@a; # 168
Dump(\@a,1); # Shows no magic
$#a=$#a; # Add magic
Dump(\@a,1); # Shows magic
print total_size \@a; # 224
'