From 3f3ced984833bf1084447c1afd3cfc7d17d0838b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Apr 2000 23:27:43 +0000
Subject: no_comment

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0eb1000c4..d66282fc7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -44,7 +44,7 @@ sub addUsers {
 
     allocUsers($prefix, @users);
     foreach my $u (@users) {
-	substInFile { s/^$u\n//; $_ .= "$u\n" if eof } "$msec/user.conf" if -d $msec;
+	substInFile { s/^$u->{name}\n//; $_ .= "$u->{name}\n" if eof } "$msec/user.conf" if -d $msec;
 	addKdmIcon($prefix, $u->{name}, delete $u->{auto_icon} || $u->{icon}, 'force');
     }
     run_program::rooted($prefix, "/usr/share/msec/grpuser.sh --refresh");
-- 
cgit v1.2.1