fix warning on filename generation

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 9b1b1d50196fdf84cf870185a2954f46f5aba3f3..a37ea0d2d647cc95a45cdb6cdd969f8f25102e3b 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -285,7 +285,8 @@ sub install
        my $remove = shift;
        my $name = uc $self->{name};
        my $sort = $self->{sort};
-       my $in = "in" if $name =~ s/^IN_//;
+       my $in = "";
+       $in = "in" if $name =~ s/^IN_//;
        $name =~ s/.PL$//;
                
        my $dxchan = DXChannel->get($name);