added a clrtoeol and a ^A

[spider.git] / perl / DXMsg.pm

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 146392f44f970a83eb269167c1590a29b71cb414..e5fa41a8f3bce122e574f0728660d31899875fe9 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -130,7 +130,7 @@ sub process
                for (keys %busy) {
                        my $node = $_;
                        my $ref = $busy{$_};
-                       if ($main::systime > $ref->{lastt} + $timeout) {
+                       if (exists $ref->{lastt} && $main::systime > $ref->{lastt} + $timeout) {
                                $ref->stop_msg($node);
 
                                # delay any outgoing messages that fail