From: minima <minima>
Date: Mon, 10 Sep 2001 00:42:24 +0000 (+0000)
Subject: fix < 5.6.0 syntax error
X-Git-Tag: R_1_48~29
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=10cd15ab627d2df5fbce79eb1388424051309f1a;p=spider.git

fix < 5.6.0 syntax error
---

diff --git a/perl/Filter.pm b/perl/Filter.pm
index b027041c..fdc06d1a 100644
--- 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);
 		}