go on unmounting when one umount fails (inline fs::mount::umount_all)

1 files changed, 8 insertions, 1 deletions

diff --git a/draklive-install b/draklive-install
index be4355e..099569c 100755
--- a/draklive-install
+++ b/draklive-install
@@ -100,7 +100,14 @@ sub umount_first_pass() {
     fs::get_info_from_fstab($all_hds);
     my $fstab = [ fs::get::fstab($all_hds) ];
     fs::merge_info_from_mtab($fstab);
-    eval { fs::mount::umount_all($fstab) };
+
+    #- inlined from fs::mount::umount_all to go on when one umount fail
+    #- (maybe the sort function could be shared)
+    log::l("unmounting all filesystems");
+    foreach (sort { $b->{mntpoint} cmp $a->{mntpoint} } 
+	       grep { $_->{mntpoint} && !$_->{real_mntpoint} } @$fstab) {
+	eval { fs::mount::umount_part($_) };
+    }
 }
 
 sub init_hds {