X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=5a53dc6e117fe291216fd36ffc8c350a7ec118d6;hb=e74346e7fcfcf7b825534727904adf57425aadd1;hp=65d5eb0392d4699fa63672f1de400a46900f0f11;hpb=defc60f3e7fab9bb99d1c9f7b8bccc4ec37628d5;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 65d5eb03..5a53dc6e 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -813,10 +813,10 @@ sub chat
 	my $text = shift;
 	my ($filter, $hops);
 
-	return unless grep uc $_ eq $target, @{$self->{user}->{group}};
+	return unless grep uc $_ eq $to, @{$self->{user}->{group}};
 	
 	$text =~ s/^\#\d+ //;
-	my $buf = "$target de $_[0]: $text";
+	my $buf = "$to de $_[0]: $text";
 	$buf =~ s/\%5E/^/g;
 	$buf .= "\a\a" if $self->{beep};
 	$self->local_send('C', $buf);