# belt and braces
$call = uc $call;
- # search for 'as is'
+ # search for 'as is' only
return $cluster{$call};
}
my $self = $pkg->alloc($dxchan, $call, $confmode, $here);
$self->{pcversion} = $pcversion;
$self->{list} = { } ;
+ $self->{mynode} = $self; # for sh/station
$nodes++;
dbg('cluster', "allocating node $call to cluster\n");
return $self;