if ($remove) {
$dxchan->{$n} = undef;
}
- unless ($dxchan->{$n}) {
- Filter::load_dxchan($dxchan, $sort, $in);
- }
+ Filter::load_dxchan($dxchan, $sort, $in);
}
}
{
my $dxchan = shift;
my $sort = lc shift;
- my $in = shift ? 'in' : '';
+ my $in = shift;
+ $in = $in ? 'in' : ''; # to cope with older perls that did not like a ternary expression with 'shift' as a conditional
my $nossid = $dxchan->call;
$nossid =~ s/-\d+$//;
my $n = "$in$sort" . "filter";