From b8cb3272f5a12c46087c52d3cef120b46cb2d0ea Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 8 Nov 1999 15:15:09 +0000 Subject: *** empty log message *** --- perl-install/install_steps.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index b2041a11c..077b90376 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -339,8 +339,9 @@ sub addUser($) { } else { my $u = $_->{uid} || ($_->{oldu} = (stat("$p$_->{home}"))[4]); my $g = $_->{gid} || ($_->{oldg} = (stat("$p$_->{home}"))[5]); - if (!$u || getpwuid($u)) { for ($u = 500; getpwuid($u) || $uids{$u}; $u++) {} } - if (!$g || getgrgid($g)) { for ($g = 500; getgrgid($g) || $gids{$g}; $g++) {} } + #- search for available uid above 501 else initscripts may fail to change llanguage for KDE. + if (!$u || getpwuid($u)) { for ($u = 501; getpwuid($u) || $uids{$u}; $u++) {} } + if (!$g || getgrgid($g)) { for ($g = 501; getgrgid($g) || $gids{$g}; $g++) {} } $_->{home} ||= "/home/$_->{name}"; $_->{uid} = $u; $uids{$u} = 1; -- cgit v1.2.1