]> dxcluster.net Git - spider.git/commitdiff
fix warning on filename generation
authorminima <minima>
Sat, 9 Jun 2001 14:35:05 +0000 (14:35 +0000)
committerminima <minima>
Sat, 9 Jun 2001 14:35:05 +0000 (14:35 +0000)
perl/Filter.pm

index 9b1b1d50196fdf84cf870185a2954f46f5aba3f3..a37ea0d2d647cc95a45cdb6cdd969f8f25102e3b 100644 (file)
@@ -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);