Added input Spot filtering

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index b927dc1f0700c0917e9bccbc61f0f345123c2c54..fbdb4f300fb579162fa34708504bac792f59a1a9 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -271,12 +271,11 @@ sub install
        my $remove = shift;
        my $name = uc $self->{name};
        my $sort = $self->{sort};
-       my ($in) = $name =~ s/^IN_//;
+       my $in = "in" if $name =~ s/^IN_//;
        $name =~ s/.PL$//;
                
        my $dxchan = DXChannel->get($name);
        if ($dxchan) {
-               $in = lc $in if $in;
                my $n = "$in$sort" . "filter";
                $dxchan->$n($remove ? undef : $self);
        }