From f8da22669430f1779ff06dd86ea2a0b53d1a2c44 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/NEWS   | 1 +
 perl-install/install/any.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b4a888072..a9079d24b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- include more partition fields in auto_inst.pl (mga#9784)
 - skip comments in /etc/crypttab (Colin, mga#9905)
 - services:
   o list 'shorewall-ipv6' along 'shorewall'
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