From afd8092ca637049090126f913c1ef20e595ebcc5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 24 Aug 2001 12:44:56 +0000
Subject: fixed possible bug (not sorted partition when calling mount_part).

---
 perl-install/install_steps.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps.pm')

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| &&
-- 
cgit v1.2.1