diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 16:53:36 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 16:53:36 +0000 |
commit | 1602f01a02ff2036e4d3743ede7b40f00104af83 (patch) | |
tree | e67e77efe361bcc0c493145c09557bab05f564a5 /perl-install | |
parent | 2b63fd596539297c639b9bf73a3a96aa9c980f85 (diff) | |
download | drakx-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.pm | 6 |
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) |