X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=a94af02b1c22bf9564b71d6d30884defd2c030ca;hb=9bba449d12641232d51d259f470ce6b21205c622;hp=06af81cb4c91092e3441f59abdd2bff3ef9a6313;hpb=ab01045632876c07392242cb0612c0b0c69e89d7;p=spider.git

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 06af81cb..a94af02b 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -327,7 +327,9 @@ sub _decode
 				$conn->to_connected($call, 'A', $conn->{csort} = 'ax25');
 			}
 		} elsif ($sort eq 'd') {
-			dbg('agw', "AGW '$from'->'$to' port: $port Disconnected");
+			my $d = unpack "Z*", $data;
+			$d =~ s/\cM$//;
+			dbg('agw', "AGW '$from'->'$to' port: $port Disconnected ($d)");
 			my $conn = _find($from eq $main::mycall ? $to : $from);
 			if ($conn) {
 				&{$conn->{eproc}}() if $conn->{eproc};