summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-06-11 07:55:47 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-06-11 09:39:32 +0200
commit72836d6f7cf216e405db6e6675e03ebda63b0655 (patch)
treec439e50fec72914805abfe5e800d1ef22643a636 /perl-install
parentc0d134ba4a4c11de67692ea03c42e3024ae6931b (diff)
downloaddrakx-72836d6f7cf216e405db6e6675e03ebda63b0655.tar
drakx-72836d6f7cf216e405db6e6675e03ebda63b0655.tar.gz
drakx-72836d6f7cf216e405db6e6675e03ebda63b0655.tar.bz2
drakx-72836d6f7cf216e405db6e6675e03ebda63b0655.tar.xz
drakx-72836d6f7cf216e405db6e6675e03ebda63b0655.zip
(init_mntpnt_suggestions) enable to call it again
needed for next commit
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 182dd05d8..672cba2fd 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -40,6 +40,7 @@ use fs;
{ mntpoint => "/tmp", size => MB(150), fs_type => defaultFS(), ratio => 2, maxsize => MB(4000) },
],
);
+my %bck_suggestions = %suggestions;
sub init_mntpnt_suggestions {
my ($all_hds, $o_force) = @_;
@@ -56,8 +57,8 @@ sub init_mntpnt_suggestions {
}
}
return if !$mntpoint;
- foreach (values %suggestions) {
- unshift @$_, $mntpoint;
+ foreach (keys %suggestions) {
+ $suggestions{$_} = [ $mntpoint, @{$bck_suggestions{$_}} ];
}
}