diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-09 12:00:14 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-11 09:39:32 +0200 |
commit | c0d134ba4a4c11de67692ea03c42e3024ae6931b (patch) | |
tree | 5642a681ff8187b9a48f66959b8db29038f89089 | |
parent | 1296c882f30f667a4cba902b4a4a5138f49b6838 (diff) | |
download | drakx-c0d134ba4a4c11de67692ea03c42e3024ae6931b.tar drakx-c0d134ba4a4c11de67692ea03c42e3024ae6931b.tar.gz drakx-c0d134ba4a4c11de67692ea03c42e3024ae6931b.tar.bz2 drakx-c0d134ba4a4c11de67692ea03c42e3024ae6931b.tar.xz drakx-c0d134ba4a4c11de67692ea03c42e3024ae6931b.zip |
init_efi_suggestions -> init_mntpnt_suggestions()
also take a $all_hds arg instead of $fstab
needed for next commit
-rw-r--r-- | perl-install/diskdrake/interactive.pm | 6 | ||||
-rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 2 | ||||
-rw-r--r-- | perl-install/fsedit.pm | 5 |
3 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index f772c0f8b..7fee8e554 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -352,8 +352,7 @@ sub Clear_all { $hd->{getting_rid_of_readonly_allowed} = 0; #- we don't need this flag anymore fsedit::partition_table_clear_and_initialize($all_hds->{lvms}, $hd, $in); } - my $fstab = [ fs::get::fstab($all_hds) ]; - fsedit::init_efi_suggestions($fstab, 1); + fsedit::init_mntpnt_suggestions($all_hds, 1); } sub Auto_allocate { @@ -1210,8 +1209,7 @@ sub ask_alldatawillbelost { sub partitions_suggestions { my ($in, $all_hds) = @_; - my $fstab = [ fs::get::fstab($all_hds) ]; - fsedit::init_efi_suggestions($fstab); + fsedit::init_mntpnt_suggestions($all_hds); my $t = $::expert ? $in->ask_from_list_(N("Partitioning Type"), N("What type of partitioning?"), [ keys %fsedit::suggestions ]) : 'simple'; diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 6290e8ccb..d04a5bba3 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -100,7 +100,7 @@ sub partitionWizardSolutions { my $min_linux = MB(600); my $min_swap = MB(50); my $min_freewin = MB(100); - fsedit::init_efi_suggestions($full_fstab); + fsedit::init_mntpnt_suggestions($all_hds); # each solution is a [ score, text, function ], where the function retunrs true if succeeded diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 2e4904bc0..182dd05d8 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -41,8 +41,9 @@ use fs; ], ); -sub init_efi_suggestions { - my ($fstab, $o_force) = @_; +sub init_mntpnt_suggestions { + my ($all_hds, $o_force) = @_; + my $fstab = [ fs::get::fstab($all_hds) ]; state $done; return if $done && !$o_force; $done++; |