push @l, "";
$i = 0;
}
- my $s = $call->{call};
- $s = sprintf "(%s)", $s if $call->{here} == 0;
+ my $s = $call->call;
+ $s = sprintf "(%s)", $s unless $call->here;
push @l, $s;
$i++;
}
foreach $node (@nodes) {
next if scalar @list && !grep $node->call =~ /^$_/, @list;
my $call = $node->call;
- $call = "($call)" if $node->here == 0;
+ $call = "($call)" unless $node->here;
@l = ();
push @l, $call;
@val = sort $node->users;