summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-08-24 12:44:56 +0000
committerFrancois Pons <fpons@mandriva.com>2001-08-24 12:44:56 +0000
commitafd8092ca637049090126f913c1ef20e595ebcc5 (patch)
tree348133983026757c02dcb1c0bba1ae4e77667142 /perl-install
parent12646c6a527a5499747f5d89bbfecc9b74f296b6 (diff)
downloaddrakx-afd8092ca637049090126f913c1ef20e595ebcc5.tar
drakx-afd8092ca637049090126f913c1ef20e595ebcc5.tar.gz
drakx-afd8092ca637049090126f913c1ef20e595ebcc5.tar.bz2
drakx-afd8092ca637049090126f913c1ef20e595ebcc5.tar.xz
drakx-afd8092ca637049090126f913c1ef20e595ebcc5.zip
fixed possible bug (not sorted partition when calling mount_part).
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 49e10280f..7a87a3f01 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -166,7 +166,8 @@ sub doPartitionDisksAfter {
if ($o->{partitioning}{use_existing_root}) {
#- ensure those partitions are mounted so that they are not proposed in choosePartitionsToFormat
- fs::mount_part($_, $o->{prefix}) foreach grep { $_->{mntpoint} && maybeFormatted($_) } @{$o->{fstab}};
+ fs::mount_part($_, $o->{prefix}) foreach (sort { $a->{mntpoint} cmp $b->{mntpoint} }
+ grep { $_->{mntpoint} && maybeFormatted($_) } @{$o->{fstab}});
}
cat_("/proc/mounts") =~ m|(\S+)\s+/tmp/image nfs| &&