From dcb6875843665296d28281c0acc69bd4fb3122ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 24 Sep 2001 18:25:54 +0000
Subject: (mount_part): fix for iso loopback mounted

---
 perl-install/fs.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index b64f06aed..88792c312 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -639,11 +639,13 @@ sub mount_part {
 	    require install_any;
 	    install_any::getFile('XXX');
 	}
-	umount($part->{real_mntpoint});
-	rmdir $part->{real_mntpoint};
-	symlinkf "$prefix$part->{mntpoint}", $part->{real_mntpoint};
-	delete $part->{real_mntpoint};
-	$part->{isMounted} = 0;
+	eval {
+	    umount($part->{real_mntpoint});
+	    rmdir $part->{real_mntpoint};
+	    symlinkf "$prefix$part->{mntpoint}", $part->{real_mntpoint};
+	    delete $part->{real_mntpoint};
+	    $part->{isMounted} = 0;
+	};
     }
 
     return if $part->{isMounted};
-- 
cgit v1.2.1