From: djk Date: Sat, 10 Jul 1999 13:38:33 +0000 (+0000) Subject: added a $ref->{lastt} for PC40 X-Git-Tag: R_1_31~16 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=f531b1f3cc4bb027b20aa17b714634de96f13e07;p=spider.git added a $ref->{lastt} for PC40 --- diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 2abcb55f..94ee8298 100644 --- 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->{lastt} = $main::systime; $work{"$f[2]$stream"} = $ref; # store in work $self->send(DXProt::pc30($f[2], $f[1], $stream)); # send ack