summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/fs.pm12
1 files 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};