diff options
Diffstat (limited to 'perl-install/lvm.pm')
| -rw-r--r-- | perl-install/lvm.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index 01e8e55a6..c5a336d22 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -68,6 +68,12 @@ sub update_size { $lvm->{totalsectors} = ($lvm->{PE_size} = $l[12]) * $l[13]; } +sub get_lv_size { + my ($lvm_device) = @_; + my $info = run_program::get_stdout('lvdisplay', '-D', '-c', "/dev/$lvm_device"); + (split(':', $info))[6]; +} + sub get_lvs { my ($lvm) = @_; my @l = run_program::get_stdout('vgdisplay', '-v', '-D', $lvm->{VG_name}); @@ -75,11 +81,10 @@ sub get_lvs { [ map { my $type = -e "/dev/$_" && fsedit::typeOfPart("/dev/$_"); - my $info = run_program::get_stdout('lvdisplay', '-D', '-c', "/dev/$_"); { device => $_, type => $type || 0x83, - size => (split(':', $info))[6] } + size => get_lv_size($_) } } map { if_(m|^LV Name\s+/dev/(\S+)|, $1) } @l ]; } @@ -120,6 +125,7 @@ sub lv_create { my $nb = 1 + max(map { basename($_->{device}) } @$list); $lv->{device} = "$lvm->{VG_name}/$nb"; run_or_die('lvcreate', '--size', int($lv->{size} / 2) . 'k', '-n', $nb, $lvm->{VG_name}); + $lv->{size} = get_lv_size($lv->{device}); #- the created size is smaller than asked size $lv->{notFormatted} = 1; $lv->{isFormatted} = 0; push @$list, $lv; @@ -129,6 +135,7 @@ sub lv_resize { my ($lv, $oldsize) = @_; run_or_die($oldsize > $lv->{size} ? ('lvreduce', '-f') : 'lvextend', '--size', int($lv->{size} / 2) . 'k', "/dev/$lv->{device}"); + $lv->{size} = get_lv_size($lv->{device}); #- the resized partition may not be the exact asked size } 1; |