marsadm: fix writeback-rest

This commit is contained in:
Thomas Schoebel-Theuer 2019-07-17 15:46:19 +02:00
parent b533bb7a06
commit 2dbe94302c
1 changed files with 2 additions and 5 deletions

View File

@ -4585,11 +4585,8 @@ sub eval_fn {
return eval_fn($env, "$what-lognr", "") - eval_fn($env, "replay-lognr", "");
}
if (/^writeback[-_]?rest$/) {
my $lnk = $$env{"resdir"} . "/replay-" . $$env{"host"};
my $link = get_link($lnk, 1);
$link =~ m/,([0-9]+)$/;
return $1 if defined($1);
return 0;
my ($sum, $firstpos, $logpos, $level) = get_amount($$env{"resdir"}, $$env{"host"}, 1, 0);
return $sum;
}
if (/^(replay|work)[-_]?(pos)$/) {
my $what = $1;