summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-05 04:37:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-05 04:37:44 +0000
commit9b6658942afa63e8505b8ad91c0c5491822fb288 (patch)
tree8e36a3f9407f5930b521982c621800ce00d94f8d /perl-install
parentcbd9ccf9dc420decdc70217e855827539bdf37d3 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/install_steps.pm6
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 }