added a $ref->{lastt} for PC40

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 2abcb55f95b2967bf21f4d26d241c7f3c5530992..94ee829850aec16bf1665fa34bbbff667bb6a0d2 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -346,6 +346,7 @@ sub process
                        $ref->{stream} = $stream;
                        $ref->{count} = 0;      # no of lines between PC31s
                        $ref->{file} = 1;
                        $ref->{stream} = $stream;
                        $ref->{count} = 0;      # no of lines between PC31s
                        $ref->{file} = 1;

+                       $ref->{lastt} = $main::systime;

                        $work{"$f[2]$stream"} = $ref; # store in work
                        $self->send(DXProt::pc30($f[2], $f[1], $stream)); # send ack 
                        
                        $work{"$f[2]$stream"} = $ref; # store in work
                        $self->send(DXProt::pc30($f[2], $f[1], $stream)); # send ack