diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-07-01 07:30:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-07-01 07:30:01 +0000 |
| commit | 53b773a3fdaf347b007f8430ba29489f5ac2c756 (patch) | |
| tree | 0b34a086e035425ddc1dbafc774d1d085cfd02b8 /perl-install | |
| parent | 9a0018962f56eb5cbe04c1b892f9bd13c860fbb3 (diff) | |
| download | drakx-53b773a3fdaf347b007f8430ba29489f5ac2c756.tar drakx-53b773a3fdaf347b007f8430ba29489f5ac2c756.tar.gz drakx-53b773a3fdaf347b007f8430ba29489f5ac2c756.tar.bz2 drakx-53b773a3fdaf347b007f8430ba29489f5ac2c756.tar.xz drakx-53b773a3fdaf347b007f8430ba29489f5ac2c756.zip | |
create lvm::pv_physical_extents() and use it
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/lvm.pm | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index df957ae56..dcccc1c97 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1210,7 +1210,7 @@ sub format_part_info { $info .= N("RAID %s\n", $part->{raid}) if isPartOfRAID($part); if (isPartOfLVM($part)) { $info .= sprintf "LVM %s\n", $part->{lvm}; - $info .= sprintf "Used physical extents %d / %d\n", split(' ', lvm::get_pv_field($part, 'pv_pe_alloc_count,pv_pe_count')); + $info .= sprintf "Used physical extents %d / %d\n", lvm::pv_physical_extents($part); } $info .= N("Loopback file(s):\n %s\n", join(", ", map { $_->{loopback_file} } @{$part->{loopback}})) if isPartOfLoopback($part); $info .= N("Partition booted by default\n (for MS-DOS boot, not for lilo)\n") if $part->{active} && $::expert; diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index 9a68877af..d3a83a186 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -68,7 +68,10 @@ sub get_pv_field { my $dev = expand_symlinks(devices::make($pv->{device})); run_program::get_stdout('lvm2', 'pvs', '--noheadings', '--nosuffix', '-o', $field, $dev); } - +sub pv_physical_extents { + my ($pv) = @_; + split(' ', lvm::get_pv_field($pv, 'pv_pe_alloc_count,pv_pe_count')) +} sub pv_to_vg { my ($pv) = @_; get_pv_field($pv, 'vg_name') =~ /(\S+)/ && $1; |