Fix for bugs 18402580 and 18402999, as suggested for 18402580

  Instead of relying on $HOME, use Perl's getpwuid() to get home dir.

Author: bjornmu

scripts/mysql_install_db.pl.in

@@ -323,17 +323,8 @@ my $password;
 my $escaped_password;      # the password, with special characters escaped
 
 sub ensure_secret_file {
-  if ( exists $ENV{HOME} ) {
-    $secret_file = $ENV{HOME} . "/.mysql_secret";
-  } elsif ( -d "/root" ) {
-    # If we don't have any environment this might be because we're 
-    # running as a service script. Assume the user is root and that he has
-    # a standard root account.
-    $secret_file= "/root/.mysql_secret";
-  } else
-  {
-    die "ERROR: Found no /root home directory. Please create one.";
-  }
+  my $home =  (getpwuid($>))[7];
+  $secret_file = $home . "/.mysql_secret";
 
   # Create safe files to avoid leaking info to other users
   # Loop may be extended if we need more ...