summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-07-01 06:31:07 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-07-01 06:31:07 +0000
commit5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4 (patch)
tree8f5d864a33c22cdc046a7cba9f145f544466c006 /perl-install
parent63b12544ba16ec894591dc0b93b102e210f9e144 (diff)
downloaddrakx-backup-do-not-use-5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4.tar
drakx-backup-do-not-use-5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4.tar.gz
drakx-backup-do-not-use-5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4.tar.bz2
drakx-backup-do-not-use-5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4.tar.xz
drakx-backup-do-not-use-5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4.zip
add "Used physical extents %d / %d\n" for PV details
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index c98331449..a9f9a25c7 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1208,7 +1208,10 @@ sub format_part_info {
$info .= N("Not formatted\n") if !$part->{isFormatted} && $part->{notFormatted};
$info .= N("Mounted\n") if $part->{isMounted};
$info .= N("RAID %s\n", $part->{raid}) if isPartOfRAID($part);
- $info .= sprintf "LVM %s\n", $part->{lvm} if isPartOfLVM($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 .= 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;
if (isRAID($part)) {