diff options
| author | Mystery Man 553 <uid553@mandriva.org> | 2001-02-13 11:38:42 +0000 |
|---|---|---|
| committer | Mystery Man 553 <uid553@mandriva.org> | 2001-02-13 11:38:42 +0000 |
| commit | 52a19f5610a2d61172ac7764337eaee72ce111ef (patch) | |
| tree | b31c54108706d069b03587e50356d9db95963f17 /perl-install | |
| parent | 0f623c5576ceaa15e0aad0a456fc90626d126dc8 (diff) | |
| download | drakx-52a19f5610a2d61172ac7764337eaee72ce111ef.tar drakx-52a19f5610a2d61172ac7764337eaee72ce111ef.tar.gz drakx-52a19f5610a2d61172ac7764337eaee72ce111ef.tar.bz2 drakx-52a19f5610a2d61172ac7764337eaee72ce111ef.tar.xz drakx-52a19f5610a2d61172ac7764337eaee72ce111ef.zip | |
md5 now done via crypt
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 1865d25b8..2b2f2b4b8 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -65,9 +65,7 @@ sub addUsers { sub crypt { my ($password, $md5) = @_; - $md5 ? - c::crypt_md5($password, salt(8)) : - crypt ($password, salt(2)); + crypt($password, $md5 ? '$1$' . salt(8) : salt(2)); } sub enableShadow { my ($prefix) = @_; |