From 11b0b944ddde76b4982fa2f9e2118dcee5035f80 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 17 Aug 2000 00:39:01 +0000 Subject: no_comment --- perl-install/standalone/adduserdrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/adduserdrake') 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"; } -- cgit v1.2.1