X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;fp=perl%2FFilter.pm;h=1c6b8589f93e803b8b9ca332d146737ce88709b2;hb=d9327446e316cebc269c98c976bab1eaed8f8ee0;hp=f4089fcf9eeda8eefdb1a76838494274de721c4c;hpb=1f377d13abe8a3b793d5aead71b700c4dc79619a;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index f4089fcf..1c6b8589 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -358,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";