added $@ and $! to see if we can store this stuff

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b8d563979b762f12e7e0ebf7db3ed37560a956aa..ff746b5e116667eb1bcd3954eaae913da5182155 100644 (file)
--- 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;