X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Ftalk.pl;h=4673392a0ca345fba3d28399b0b75982e2e691eb;hp=a4c9e319c58a19cf91452050df4a53723a339154;hb=c1a9cb4e04fb7db7898b05542e671c4e9e55fb93;hpb=011ea517c23d99f17495e50ae05c183bb21fe50f

diff --git a/cmd/talk.pl b/cmd/talk.pl
index a4c9e319..4673392a 100644
--- a/cmd/talk.pl
+++ b/cmd/talk.pl
@@ -36,8 +36,10 @@ my $dxchan = $clref->dxchan if $clref;
 #return (1, $self->msg('e7', $call)) unless $dxchan;
 return (1, $self->msg('e28')) unless $self->registered || $to eq $main::myalias;
 
+$DB::single = 1;
+
 # default the 'via'
-$via ||= '*';
+#$via ||= '*';
 
 # if there is a line send it, otherwise add this call to the talk list
 # and set talk mode for command mode
@@ -51,7 +53,7 @@ if ($line) {
 	}
 } else {
 	my $s = $to;
-	$s .= ">$via" if $via;
+	$s .= ">$via" if $via && $via ne '*';
 	my $ref = $self->talklist;
 	if ($ref) {
 		unless (grep { $_ eq $s } @$ref) {