summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-02 16:53:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-02 16:53:36 +0000
commit1602f01a02ff2036e4d3743ede7b40f00104af83 (patch)
treee67e77efe361bcc0c493145c09557bab05f564a5 /perl-install
parent2b63fd596539297c639b9bf73a3a96aa9c980f85 (diff)
downloaddrakx-backup-do-not-use-1602f01a02ff2036e4d3743ede7b40f00104af83.tar
drakx-backup-do-not-use-1602f01a02ff2036e4d3743ede7b40f00104af83.tar.gz
drakx-backup-do-not-use-1602f01a02ff2036e4d3743ede7b40f00104af83.tar.bz2
drakx-backup-do-not-use-1602f01a02ff2036e4d3743ede7b40f00104af83.tar.xz
drakx-backup-do-not-use-1602f01a02ff2036e4d3743ede7b40f00104af83.zip
use append_to_file()
Diffstat (limited to 'perl-install')
-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)