From a677f2c9735db24a2887394fe9e4f311838ea69b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 14 Oct 1999 17:56:11 +0000 Subject: no_comment --- perl-install/install_steps.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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}++) {} } -- cgit v1.2.1