From 1c38bb414984d3680a7b0c7d20ca29d754fddc45 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 16 Feb 2012 13:36:17 +0100 Subject: [PATCH] Fallback in SL/Auth/Password war nicht korrekt --- SL/Auth/Password.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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'; -- 2.20.1