From 3af60e62fa43568729cc90a8244e13210bc5579a Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Fri, 25 Nov 2011 09:43:29 +0100
Subject: [PATCH] ignore errors from vgs

---
 PVE/Storage.pm | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/PVE/Storage.pm b/PVE/Storage.pm
index c85d3c9..cb34139 100755
--- a/PVE/Storage.pm
+++ b/PVE/Storage.pm
@@ -1443,15 +1443,22 @@ sub lvm_vgs {
 	       'vg_name,vg_size,vg_free'];
 
     my $vgs = {};
-    run_command($cmd, outfunc => sub {
-	my $line = shift;
+    eval {
+	run_command($cmd, outfunc => sub {
+	    my $line = shift;
 
-	$line = trim($line);
+	    $line = trim($line);
 
-	my ($name, $size, $free) = split (':', $line);
+	    my ($name, $size, $free) = split (':', $line);
 
-	$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;
 }