X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;fp=perl%2FFilter.pm;h=1c6b8589f93e803b8b9ca332d146737ce88709b2;hb=37a9324302cb4de2c25ce0005d697fd9895ea8cd;hp=f4089fcf9eeda8eefdb1a76838494274de721c4c;hpb=1f746528060467b7953a560c08f913091d03c0a1;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";