From: djk <djk>
Date: Tue, 29 Jun 1999 21:01:45 +0000 (+0000)
Subject: changed some stop_msg calls in DXProt to $call
X-Git-Tag: R_1_31~23
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2af6cce23d91c175f9fe9a5b4f7af6f8cfd43440;p=spider.git

changed some stop_msg calls in DXProt to $call
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 78e0e0d1..a28be5ff 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -421,7 +421,7 @@ sub normal
 				
 				# unbusy and stop and outgoing mail (ie if somehow we receive another PC19 without a disconnect)
 				my $mref = DXMsg::get_busy($call);
-				$mref->stop_msg($self) if $mref;
+				$mref->stop_msg($call) if $mref;
 				
 				# add this station to the user database, if required (don't remove SSID from nodes)
 				my $user = DXUser->get_current($call);
@@ -772,7 +772,7 @@ sub finish
 	
 	# unbusy and stop and outgoing mail
 	my $mref = DXMsg::get_busy($call);
-	$mref->stop_msg($self) if $mref;
+	$mref->stop_msg($call) if $mref;
 	
 	# broadcast to all other nodes that all the nodes connected to via me are gone
 	my @gonenodes = map { $_->dxchan == $self ? $_ : () } DXNode::get_all();