Fallback in SL/Auth/Password war nicht korrekt

[mfinanz.git] / SL / Auth / Password.pm

diff --git a/SL/Auth/Password.pm b/SL/Auth/Password.pm
index 4141bba4df226c5f6eaadf0ca36a3429092785cc..ec6fc72ecf8bc19b13ceeacafb7785a865c6ee6a 100644 (file)
--- 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';