summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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{$_}} ];
}
}