| … | … | ||
|---|---|---|---|
| 1915 | if $self->{text} eq $nullpw; | 1915 | if $self->{text} eq $nullpw; |
| 1916 | 0 | 1916 | 0 |
| 1917 | }, | 1917 | }, |
| 1918 | on_changed => sub { | 1918 | on_changed => sub { |
| 1919 | my ($self, $value) = @_; | 1919 | my ($self, $value) = @_; |
| 1920 | $PROFILE->{password} = pack "H*", Deliantra::Util::hash_pw $value | 1920 | $PROFILE->{password} = unpack "H*", Deliantra::Util::hash_pw $value |
| 1921 | if length $value && $value ne $nullpw; | 1921 | if length $value && $value ne $nullpw; |
| 1922 | 1 | 1922 | 1 |
| 1923 | }, | 1923 | }, |
| 1924 | ); | 1924 | ); |
| 1925 | 1925 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |