WIP spot deduping

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 4be0b630fbdbbb8072ed6f1a7d370fe54c516e0e..1c6b8589f93e803b8b9ca332d146737ce88709b2 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -348,9 +348,7 @@ sub install
                if ($remove) {
                        $dxchan->{$n} = undef;
                }
-               unless ($dxchan->{$n}) {
-                       Filter::load_dxchan($dxchan, $sort, $in);
-               }
+               Filter::load_dxchan($dxchan, $sort, $in);
        }
 }
 
@@ -360,7 +358,8 @@ sub load_dxchan
 {
        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";