$n eq 'null' ? substr(ppname($_[0]->targ), 3) : $n
}
-sub list ($) {
- my $r = $_[0];
- return 0 unless defined $r;
- return $r eq 'list' unless ref $r;
- return $r->{list} and 1 == scalar keys %$r;
-}
-
sub normalize ($) {
my $r = $_[0];
return unless defined $r;