summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-24 18:25:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-24 18:25:54 +0000
commitdcb6875843665296d28281c0acc69bd4fb3122ec (patch)
treef209aba9cba8f60740fb55895dc36a95a6c5fc64 /perl-install
parent1ad9a4f08da2946ca6d8d791f6ba3b73c63c2bdb (diff)
downloaddrakx-backup-do-not-use-dcb6875843665296d28281c0acc69bd4fb3122ec.tar
drakx-backup-do-not-use-dcb6875843665296d28281c0acc69bd4fb3122ec.tar.gz
drakx-backup-do-not-use-dcb6875843665296d28281c0acc69bd4fb3122ec.tar.bz2
drakx-backup-do-not-use-dcb6875843665296d28281c0acc69bd4fb3122ec.tar.xz
drakx-backup-do-not-use-dcb6875843665296d28281c0acc69bd4fb3122ec.zip
(mount_part): fix for iso loopback mounted
Diffstat (limited to 'perl-install')
-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};