build_package.pl
changeset 61 cfb15e4d62a4
parent 60 6e2dd2cc846d
child 65 d0bd2fd2c468
equal deleted inserted replaced
60:6e2dd2cc846d 61:cfb15e4d62a4
   403 					
   403 					
   404 					$sString=~m%([^,]*),(.*)%;
   404 					$sString=~m%([^,]*),(.*)%;
   405 					my $nPid=$1;
   405 					my $nPid=$1;
   406 					my $nTimestamp=$2;
   406 					my $nTimestamp=$2;
   407 					
   407 					
   408 					if (time()-$nTimestamp<=$nMAX_LETTER_AGE_SECONDS)
   408 					if (time()-$nTimestamp<=$nMAX_LETTER_AGE_SECONDS or $nTimestamp == 0 or $nTimestamp == -1)
   409 					{
   409 					{
   410 						$hsPidsAndTimestamps{$sLetter} = $sString;
   410 						$hsPidsAndTimestamps{$sLetter} = $sString;
   411 					}
   411 					}
   412 					else
   412 					else
   413 					{
   413 					{