marsadm: fix invalid subtraction in corner case

This commit is contained in:
Thomas Schoebel-Theuer 2020-08-10 19:38:38 +02:00 committed by Thomas Schoebel-Theuer
parent d4c64f60fd
commit e71faba173
1 changed files with 5 additions and 2 deletions

View File

@ -5720,8 +5720,11 @@ sub eval_fn {
}
my $lnk = $$env{"resdir"} . "/actual-$peer/" . $transl{$op};
my $result = get_link($lnk, 2);
$result = "0" unless defined($result);
$result = mars_time() - $result if $op =~ m/-age/;
return 0 unless $result;
if ($op =~ m/-age/) {
$result = mars_time() - $result;
$result = 0 if $result < 0;
}
return $result;
}
if (/^is[-_]?split([-_]?brain)?$/) {