diff options
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) = @_; |