X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9022ecda41297eefc607b19a9bb048a9db6569c4..1c38bb414984d3680a7b0c7d20ca29d754fddc45:/SL/Auth/Password.pm diff --git a/SL/Auth/Password.pm b/SL/Auth/Password.pm index 4141bba4d..ec6fc72ec 100644 --- a/SL/Auth/Password.pm +++ b/SL/Auth/Password.pm @@ -20,7 +20,7 @@ sub hash { return '{' . $params{algorithm} . '}' . Digest::SHA::sha256_hex($salt . $params{password}); } elsif ($params{fallback_algorithm}) { - return $class->hash_password(%params, algorithm => $params{fallback_algorithm}); + return $class->hash(%params, algorithm => $params{fallback_algorithm}); } else { die 'Digest::SHA is not available'; @@ -34,7 +34,7 @@ sub hash { return '{' . $params{algorithm} . '}' . Digest::SHA1::sha1_hex($salt . $params{password}); } elsif ($params{fallback_algorithm}) { - return $class->hash_password(%params, algorithm => $params{fallback_algorithm}); + return $class->hash(%params, algorithm => $params{fallback_algorithm}); } else { die 'Neither Digest::SHA nor Digest::SHA1 is available';