diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-14 17:56:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-14 17:56:11 +0000 |
| commit | a677f2c9735db24a2887394fe9e4f311838ea69b (patch) | |
| tree | ef8f1be8b2659f4691cce90709159c9c315735eb /perl-install/install_steps.pm | |
| parent | 5bd28ca1ab7a91e15b502fea7a71508285541738 (diff) | |
| download | drakx-a677f2c9735db24a2887394fe9e4f311838ea69b.tar drakx-a677f2c9735db24a2887394fe9e4f311838ea69b.tar.gz drakx-a677f2c9735db24a2887394fe9e4f311838ea69b.tar.bz2 drakx-a677f2c9735db24a2887394fe9e4f311838ea69b.tar.xz drakx-a677f2c9735db24a2887394fe9e4f311838ea69b.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index ffb2a14c4..99d3fad49 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -294,8 +294,8 @@ sub addUser($) { $u{home} ||= "/home/$u{name}"; my (%uids, %gids); - foreach (glob_("/home")) { my ($u, $g) = (stat($_))[4,5]; $uids{$u} = 1; $gids{$g} = 1; } - my ($old_uid, $old_gid) = ($u{uid}, $u{gid}) = (stat($u{home}))[4,5]; + foreach (glob_("$p/home")) { my ($u, $g) = (stat($_))[4,5]; $uids{$u} = 1; $gids{$g} = 1; } + my ($old_uid, $old_gid) = ($u{uid}, $u{gid}) = (stat("$p$u{home}"))[4,5]; if (getpwuid($u{uid})) { for ($u{uid} = 500; getpwuid($u{uid}) || $uids{$u{uid}}; $u{uid}++) {} } if (getgrgid($u{gid})) { for ($u{gid} = 500; getgrgid($u{gid}) || $gids{$u{gid}}; $u{gid}++) {} } |