marsadm: ignore tails in comma-separated numeric lists

This commit is contained in:
Thomas Schoebel-Theuer 2022-06-10 14:16:31 +02:00
parent 345c92497a
commit c50c5448c8
1 changed files with 2 additions and 0 deletions

View File

@ -7743,6 +7743,8 @@ sub progress_bar {
sub make_numeric {
my $number = shift;
return 0 if (!defined($number) || $number eq "");
# skip followin parts of comma-separated lists
$number =~ s/,.*//;
return $number;
}