From d5b00fba60ce7b9aaf7d9115ae06f1da24ec40b8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 30 Apr 2013 19:38:36 +0000
Subject: include more partition fields in auto_inst.pl (mga#9784)

include qw(hd level parts VG_name)
also sort fields

we might miss VGs though...
---
 perl-install/install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install/any.pm')

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index b311d4d91..96a844cc1 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -780,7 +780,7 @@ sub g_auto_install {
     require install::pkgs;
     $o->{default_packages} = install::pkgs::selected_leaves($::o->{packages});
 
-    my @fields = qw(mntpoint fs_type size);
+    my @fields = qw(fs_type hd level mntpoint parts size VG_name);
     $o->{partitions} = [ map { 
 	my %l; @l{@fields} = @$_{@fields}; \%l;
     } grep { 
-- 
cgit v1.2.1