diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-05 04:37:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-05 04:37:44 +0000 |
| commit | 9b6658942afa63e8505b8ad91c0c5491822fb288 (patch) | |
| tree | 8e36a3f9407f5930b521982c621800ce00d94f8d /perl-install/install_steps.pm | |
| parent | cbd9ccf9dc420decdc70217e855827539bdf37d3 (diff) | |
| download | drakx-9b6658942afa63e8505b8ad91c0c5491822fb288.tar drakx-9b6658942afa63e8505b8ad91c0c5491822fb288.tar.gz drakx-9b6658942afa63e8505b8ad91c0c5491822fb288.tar.bz2 drakx-9b6658942afa63e8505b8ad91c0c5491822fb288.tar.xz drakx-9b6658942afa63e8505b8ad91c0c5491822fb288.zip | |
allow getpwnam, getgrnam, getgrid to work
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 76afb301c..eda66496e 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -704,6 +704,12 @@ sub addUser { my ($o) = @_; my $users = $o->{users} ||= []; + if ($::prefix) { + #- getpwnam, getgrnam, getgrid works + symlinkf("$::prefix/etc/passwd", '/etc/passwd'); + symlinkf("$::prefix/etc/group", '/etc/group'); + } + my (%uids, %gids); foreach (glob_("$::prefix/home")) { my ($u, $g) = (stat($_))[4,5]; $uids{$u} = 1; $gids{$g} = 1 } |