From e81614106311688a1932251f23ac42ad04ada4fe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Dec 2002 12:40:19 +0000
Subject: do not use "local *F"

---
 perl-install/install_steps.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 838694be8..9aed7ba4e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -745,9 +745,8 @@ sub addUser {
 
     any::write_passwd_user($p, $_, $o->{authentication}{md5}) foreach @$users;
 
-    local *F;
-    open F, ">> $p/etc/group" or die "can't append to group file: $!";
-    print F "$_->{name}:x:$_->{gid}:\n" foreach grep { ! getgrgid($_->{gid}) } @$users;
+    append_to_file("$p/etc/group",
+		   map { "$_->{name}:x:$_->{gid}:\n" } grep { ! getgrgid($_->{gid}) } @$users);
 
     foreach my $u (@$users) {
 	if (! -d "$p$u->{home}") {
-- 
cgit v1.2.1