From 1602f01a02ff2036e4d3743ede7b40f00104af83 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Dec 2002 16:53:36 +0000
Subject: use append_to_file()

---
 perl-install/fs.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/fs.pm')

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)
-- 
cgit v1.2.1