- $stored_password = SL::Auth::Password->hash(password => $stored_password) unless $stored_password;
- ($algorithm, $stored_password) = SL::Auth::Password->parse($stored_password);
- ($algorithm2, $password) = SL::Auth::Password->parse(SL::Auth::Password->hash_if_unhashed(password => $password, algorithm => $algorithm, login => $login));
+ $stored_password = SL::Auth::Password->hash(password => $stored_password) unless $stored_password;
+ my ($algorithm) = SL::Auth::Password->parse($stored_password);
+ my $hashed_password = SL::Auth::Password->hash(password => $password, algorithm => $algorithm, login => $login, stored_password => $stored_password);