X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fkill.pl;h=ab7bb511a9082f4902f10a1d0bc90a918504af18;hb=58bd2e8154553c7fa5ccfdcc2c53b85c7453abda;hp=dd4760594a3effeb471af28634c0f07ae46d7b14;hpb=de987b900c04d852acec5e1af9a4326b16533253;p=spider.git diff --git a/cmd/kill.pl b/cmd/kill.pl index dd476059..ab7bb511 100644 --- a/cmd/kill.pl +++ b/cmd/kill.pl @@ -66,6 +66,8 @@ foreach $ref ( @refs) { if ($full) { DXProt::broadcast_ak1a(DXProt::pc49($ref->{from}, $ref->{subject}), $DXProt::me); } + my $tonode = $ref->tonode; + $ref->stop_msg($tonode) if $tonode; $ref->del_msg; push @out, $self->msg('m12', $ref->msgno); }