From: djk <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