X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=1c6b8589f93e803b8b9ca332d146737ce88709b2;hb=17d726014561756adf9fa40a68940bcd88e5f7b3;hp=4be0b630fbdbbb8072ed6f1a7d370fe54c516e0e;hpb=6a17c3a3e2f7a72c0d13a93c90a010b753319def;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 4be0b630..1c6b8589 100644
--- 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";