X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Fshow%2Fchannel.pl;h=147c150af6bd307e71261e4ef547aae2df306f98;hp=e1ef761083b620b1e8372c098e7035ceae44e967;hb=20b0104deaeab77fa7ab1444dbcedfcdbf5865f8;hpb=07ea293f3919d2da76220b5fbc55b734008ed44c

diff --git a/cmd/show/channel.pl b/cmd/show/channel.pl
index e1ef7610..147c150a 100644
--- a/cmd/show/channel.pl
+++ b/cmd/show/channel.pl
@@ -4,9 +4,10 @@
 # $Id$
 #
 
+use strict;
 my ($self, $line) = @_;
-my @list = /\s+/, $line;		  # generate a list of callsigns
-@list = ($self->call) if (!@list || $self->priv < 9);  # my channel if no callsigns
+my @list = split /\s+/, $line;		  # generate a list of callsigns
+@list = ($self->call) if !@list || $self->priv < 9;  # my channel if no callsigns
 
 my $call;
 my @out;