X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=04d62e4b55b02c3c23820cb3761c047b44af99e1;hb=77727aa5c288b8b34cb0e05cea45a367fa1f9b6c;hp=7cde642c00206f806f3232e0d6f25b3a394d48b6;hpb=e028aec8725d73bc98177514e53c0f35aa698202;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7cde642c..04d62e4b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -737,7 +737,7 @@ sub send_dx_spot
 			}
 		} elsif ($dxchan->is_user && $dxchan->{dx}) {
 			my $buf = Spot::formatb($_[0], $_[1], $_[2], $_[3], $_[4]);
-			$buf .= "\a\a" if $dxchan->beep;
+			$buf .= "\a\a" if $dxchan->{beep};
 			if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'convers') {
 				$dxchan->send($buf) if !$hops || ($hops && $filter);
 			} else {