summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm12
1 files changed, 1 insertions, 11 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 7ae914036..7ef9effba 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -74,16 +74,6 @@ sub enableShadow {
run_program::rooted($prefix, "pwconv") or log::l("pwconv failed");
run_program::rooted($prefix, "grpconv") or log::l("grpconv failed");
}
-sub enableMD5Shadow { #- NO MORE USED
- my ($prefix, $shadow, $md5) = @_;
- substInFile {
- if (/^password.*pam_pwdb.so/) {
- s/\s*shadow//; s/\s*md5//;
- s/$/ shadow/ if $shadow;
- s/$/ md5/ if $md5;
- }
- } grep { -r $_ } map { "$prefix/etc/pam.d/$_" } qw(login rlogin passwd);
-}
sub grub_installed {
my ($in) = @_;
@@ -868,7 +858,7 @@ when your installation is complete and you restart your system.")),
sub write_passwd_user {
my ($prefix, $u, $isMD5) = @_;
- $u->{pw} = &crypt($u->{password}, $isMD5) if $u->{password};
+ $u->{pw} = $u->{password} ? &crypt($u->{password}, $isMD5) : $u->{pw} || '';
$u->{shell} ||= '/bin/bash';
substInFile {