X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=ff746b5e116667eb1bcd3954eaae913da5182155;hb=f3b23f65ec3e143910ec6a6c36cfe1ab37f0338c;hp=b8d563979b762f12e7e0ebf7db3ed37560a956aa;hpb=1b80273d4b08b05d2f58eb925da6d64396866e0f;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index b8d56397..ff746b5e 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -816,7 +816,7 @@ sub finish my $ref = DXCluster->get_exact($call); $self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op"))); - + # unbusy and stop and outgoing mail my $mref = DXMsg::get_busy($call); $mref->stop_msg($call) if $mref;