ignore errors from vgs

This commit is contained in:
Dietmar Maurer
2011-11-25 09:43:29 +01:00
parent f81372ac59
commit 3af60e62fa

View File

@ -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;
} }