From 167fc711a1c9190ba6deb54dd1d7d9fdf84122c3 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 3 Mar 2001 21:32:25 +0000 Subject: small fixes for LVM --- perl-install/lvm.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/lvm.pm') diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index 5ce2b3c03..c2b15e613 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -25,6 +25,7 @@ sub cylinder_size { modules::load('lvm-mod'); run_program::run('vgscan') if !-e '/etc/lvmtab'; +run_program::run('vgchange', '-a', 'y'); sub get_vg { my ($part) = @_; @@ -47,7 +48,7 @@ sub get_lvs { { device => $_, type => $type || 0x83, isFormatted => $type, - size => (split(':', `lvdisplay -c $_`))[6] } + size => (split(':', `lvdisplay -D -c $_`))[6] } } map { /^LV Name\s+(\S+)/ ? $1 : () } `vgdisplay -v -D $lvm->{LVMname}` ]; } -- cgit v1.2.1