From da7c76d285c462562dc9efeacf2db79be921a823 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 9 Jun 2001 14:35:05 +0000 Subject: [PATCH] fix warning on filename generation --- perl/Filter.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/Filter.pm b/perl/Filter.pm index 9b1b1d50..a37ea0d2 100644 --- 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); -- 2.43.0