SI/lvm.pm
changeset 17 d4942418a9ea
parent 16 fd87c1e3b451
child 19 d12753b246fd
--- a/SI/lvm.pm	Tue Jan 19 23:45:54 2010 +0100
+++ b/SI/lvm.pm	Tue Jan 19 23:48:10 2010 +0100
@@ -18,9 +18,10 @@
     my $devs = shift;
 
     # find the physical volumes we've already recognised as „non-removable“
-    my @known = keys %{$devs->{volume}}, keys %{$devs->{disk}};
+    my @known = keys %{ $devs->{volume} }, keys %{ $devs->{disk} };
 
-    my @pvs = grep { $_ ~~ @known } map { s/\s*//; (split /:/)[0] } `pvdisplay -c`;
+    my @pvs =
+      grep { $_ ~~ @known } map { s/\s*//; (split /:/)[0] } `pvdisplay -c`;
     @volumegroups = map { (split /:/)[1] } `pvdisplay -c @pvs 2>/dev/null`;
     run("vgchange -ay @volumegroups 2>&1 >/dev/null");
     return @volumegroups;
@@ -33,12 +34,12 @@
     # physical devices known to lvm, not just the non-removable
 
     my @vgs = _vgs(%$devs);
-    my @lvs = 
-	      map { abs_path ((dirname $_) . "/" . readlink) } 
-	      map { s/^\s*//; (split /:/)[0] } 
-	      grep { (split /:/)[1] ~~ @vgs } `lvdisplay -c`;
+    my @lvs =
+      map { abs_path((dirname $_) . "/" . readlink) }
+      map { s/^\s*//; (split /:/)[0] }
+      grep { (split /:/)[1] ~~ @vgs } `lvdisplay -c`;
     foreach (@lvs) {
-	$devs->{volume}{$_} = { origin => "lvm" };
+        $devs->{volume}{$_} = { origin => "lvm" };
     }
 }
 
@@ -47,9 +48,10 @@
 
     # we save it vg by vg to have the restore more easy
     my @vgs = _vgs(%$devs);
-    foreach ( map { s/^\s*(.*)/$1/; $_ = (split /:/)[0] } `vgs --noheadings --separator : @vgs`)
+    foreach (map { s/^\s*(.*)/$1/; $_ = (split /:/)[0] }
+        `vgs --noheadings --separator : @vgs`)
     {
-	verbose("saving vg $_\n");
+        verbose("saving vg $_\n");
         my $file = sprintf $file, $_;
         run("vgcfgbackup -f '$file' '$_' >/dev/null");
     }
@@ -61,4 +63,5 @@
 }
 
 1;
+
 # vim:sts=4 sw=4 aw ai si: