summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/fs.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index cd15d96d2..8b97e175b 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -730,9 +730,9 @@ sub mount {
log::l("skipping mounting $fs partition");
return;
}
- local *F;
- open F, ">>/etc/mtab" or return; #- fail silently, /etc must be read-only
- print F "$dev $where $fs defaults 0 0\n";
+ eval { #- fail silently, /etc must be read-only
+ append_to_file("/etc/mtab", "$dev $where $fs defaults 0 0\n");
+ };
}
#- takes the mount point to umount (can also be the device)