ignore errors from vgs
This commit is contained in:
@ -1443,6 +1443,7 @@ sub lvm_vgs {
|
|||||||
'vg_name,vg_size,vg_free'];
|
'vg_name,vg_size,vg_free'];
|
||||||
|
|
||||||
my $vgs = {};
|
my $vgs = {};
|
||||||
|
eval {
|
||||||
run_command($cmd, outfunc => sub {
|
run_command($cmd, outfunc => sub {
|
||||||
my $line = shift;
|
my $line = shift;
|
||||||
|
|
||||||
@ -1452,6 +1453,12 @@ sub lvm_vgs {
|
|||||||
|
|
||||||
$vgs->{$name} = { size => int ($size), free => int ($free) };
|
$vgs->{$name} = { size => int ($size), free => int ($free) };
|
||||||
});
|
});
|
||||||
|
};
|
||||||
|
my $err = $@;
|
||||||
|
|
||||||
|
# just warn (vgs return error code 5 if clvmd does not run)
|
||||||
|
# but output is still OK (list without clustered VGs)
|
||||||
|
warn $err if $err;
|
||||||
|
|
||||||
return $vgs;
|
return $vgs;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user