fixed some problems with clearing and things

[spider.git] / cmd / show / filter.pl

diff --git a/cmd/show/filter.pl b/cmd/show/filter.pl
index 7289eed6f3b95a51cfc0bd266de18f0fd35a5636..3b01712a6f78598f0db482142aeb44f288eeefc7 100644 (file)
--- a/cmd/show/filter.pl
+++ b/cmd/show/filter.pl
@@ -15,7 +15,7 @@ my $f = lc shift @f if @f;
 if ($self->priv >= 8) {
        my $d = DXChannel->get(uc $f);
        $dxchan = $d if $d;
-       $f = lc shift @f if @f;
+       $f = lc shift @f;
 }
 
 $sort = $f if $f;