summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-14 17:56:11 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-14 17:56:11 +0000
commita677f2c9735db24a2887394fe9e4f311838ea69b (patch)
treeef8f1be8b2659f4691cce90709159c9c315735eb /perl-install/install_steps.pm
parent5bd28ca1ab7a91e15b502fea7a71508285541738 (diff)
downloaddrakx-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.pm4
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}++) {} }