diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-11 07:55:47 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-11 09:39:32 +0200 |
| commit | 72836d6f7cf216e405db6e6675e03ebda63b0655 (patch) | |
| tree | c439e50fec72914805abfe5e800d1ef22643a636 /perl-install | |
| parent | c0d134ba4a4c11de67692ea03c42e3024ae6931b (diff) | |
| download | drakx-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.pm | 5 |
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{$_}} ]; } } |