when calling adduser, don't forget {realname} or {home} if we have them (bugzilla #13805)

1 files changed, 2 insertions, 0 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 6da456130..5f2fe3511 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -71,6 +71,8 @@ sub create_user {
 			    'adduser', 
 			    '-p', authentication::user_crypted_passwd($u, $isMD5),
 			    if_($uid, '-u', $uid), if_($gid, '-g', $gid), 
+			    if_($u->{realname}, '-c', $u->{realname}),
+			    if_($u->{home}, '-d', $u->{home}),
 			    if_($u->{shell}, '-s', $u->{shell}), 
 			    $u->{name});
     }