From 680a22985ade4719c431cf2c43daed9eafd3bd4e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 5 Nov 1999 22:54:25 +0000 Subject: no_comment --- perl-install/install_steps.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 225a0d3c1..ccf47b4c5 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -299,8 +299,9 @@ sub addUser($) { foreach (glob_("$p/home")) { my ($u, $g) = (stat($_))[4,5]; $uids{$u} = 1; $gids{$g} = 1; } my @l = @{$o->{users} || []}; + my %done; foreach (@l) { - next if !$_->{name} || getpwnam($_->{name}); + next if !$_->{name} || getpwnam($_->{name}) || $done{$_->{name}}; my $u = $_->{uid} || ($_->{oldu} = (stat("$p$_->{home}"))[4]); my $g = $_->{gid} || ($_->{oldg} = (stat("$p$_->{home}"))[5]); @@ -311,6 +312,7 @@ sub addUser($) { $_->{uid} = $u; $_->{gid} = $g; $_{pw} ||= $_->{password} && install_any::crypt($_->{password}); + $done{$_->{name}} = 1; } my @passwd = cat_("$p/etc/passwd");; -- cgit v1.2.1