From 5ab41a49a0d6c1253658c1dc6c2ab61ee6efeee4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 1 Jul 2005 06:31:07 +0000 Subject: add "Used physical extents %d / %d\n" for PV details --- perl-install/diskdrake/interactive.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/diskdrake') 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)) { -- cgit v1.2.1