Merge branch 'test' into mojo

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index f4089fcf9eeda8eefdb1a76838494274de721c4c..1c6b8589f93e803b8b9ca332d146737ce88709b2 100644 (file)
--- 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";