summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-24 13:40:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-24 13:40:02 +0000
commit3d529bf1629377fe34c95ddd756b1063f745dbf1 (patch)
tree548e35c940759b642c94dceb3c1330d0d22bfe7b /perl-install
parent5bbd68f0ab37819659633f6392c9f546be62335f (diff)
downloaddrakx-3d529bf1629377fe34c95ddd756b1063f745dbf1.tar
drakx-3d529bf1629377fe34c95ddd756b1063f745dbf1.tar.gz
drakx-3d529bf1629377fe34c95ddd756b1063f745dbf1.tar.bz2
drakx-3d529bf1629377fe34c95ddd756b1063f745dbf1.tar.xz
drakx-3d529bf1629377fe34c95ddd756b1063f745dbf1.zip
(write): do not die when real_mntpoint fs fail to unmount/remount, just log
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 4bcfe70ea..16d6da39f 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -544,11 +544,11 @@ sub write {
my @magic_parts = grep { $_->{isMounted} && $_->{real_mntpoint} } get_normal_parts($hd);
foreach (@magic_parts) {
- syscall_('umount', $_->{real_mntpoint}) or die _("error unmounting %s: %s", $_->{real_mntpoint}, "$!");
+ syscall_('umount', $_->{real_mntpoint}) or log::l(_("error unmounting %s: %s", $_->{real_mntpoint}, "$!"));
}
$hd->kernel_read;
foreach (@magic_parts) {
- syscall_('mount', , $_->{real_mntpoint}, type2fs($_), c::MS_MGC_VAL()) or die _("mount failed: ") . "$!";
+ syscall_('mount', , $_->{real_mntpoint}, type2fs($_), c::MS_MGC_VAL()) or log::l(_("mount failed: ") . "$!");
}
$hd->{needKernelReread} = 0;
}