From cfc5075fdd3effdb0617e98133cf08e6fbdceef7 Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Sat, 25 Jan 2014 11:18:26 +0000
Subject: Ensure uid/gid extraction works when adding users via summary page

Fixes chown'ing user to root when adding existing user
on upgrade.

mga#12375
---
 perl-install/install/NEWS                 | 3 +++
 perl-install/install/steps_interactive.pm | 5 +++++
 2 files changed, 8 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b098016e6..9a2fa08df 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- Ensure uid/gid extraction works when adding users via summary page
+  (fixes chown'ing user to root when adding existing user on upgrade mga#12375)
+
 Version 16.26.6 - 23 January 2014
 
 - fix hidden icon in individual package selection (mga#12397)
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 83929dd83..5da4fa03d 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -890,6 +890,11 @@ sub summary {
 	label => N("User management"),
 	clicked => sub { 
 	    if (my $u = any::ask_user($o, $o->{users}, $o->{security}, needauser => 1)) {
+		if ($::prefix) {
+			#- getpwnam, getgrnam, getgrid works
+			symlinkf("$::prefix/etc/passwd", '/etc/passwd');
+			symlinkf("$::prefix/etc/group", '/etc/group');
+		}
 		any::add_users([$u], $o->{authentication});
 	    }
 	},
-- 
cgit v1.2.1