fix < 5.6.0 syntax error

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index b027041c8c664711a0faaf511259bbcb147653c8..fdc06d1ae87454d3f9a81772fd403c6c80e82c7e 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -310,7 +310,7 @@ sub install
        }
        foreach $dxchan (@dxchan) {
                my $n = "$in$sort" . "filter";
-               my $ref = $dxchan->$n;
+               my $ref = $dxchan->$n();
                if (!$ref || ($ref && uc $ref->{name} eq "$name.PL")) {
                        $dxchan->$n($remove ? undef : $self);
                }