summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/adduserdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-17 00:39:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-17 00:39:01 +0000
commit11b0b944ddde76b4982fa2f9e2118dcee5035f80 (patch)
treea873f848dcf1eda96b89a0319f8923e10bbc5b4a /perl-install/standalone/adduserdrake
parentd77799bb5ce63ecac4de72e1b27f56d7d22fd048 (diff)
downloaddrakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar
drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.gz
drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.bz2
drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.xz
drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.zip
no_comment
Diffstat (limited to 'perl-install/standalone/adduserdrake')
-rwxr-xr-xperl-install/standalone/adduserdrake2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake
index be03ed9f3..6cd88bf32 100755
--- a/perl-install/standalone/adduserdrake
+++ b/perl-install/standalone/adduserdrake
@@ -72,7 +72,7 @@ sub addusers {
my @u = map { $_->{name} } my @users = @_;
foreach (@users) {
- $_->{pw} = $isMD5 ? c::crypt_md5($_->{password}, salt(8)) : crypt($_->{password}, salt(2));
+ $_->{pw} = any::crypt($_->{password}, $isMD5);
$_->{shell} ||= "/bin/bash";
}