… | |
… | |
225 | |
225 | |
226 | $profile->{secret} = shift @ARGV; |
226 | $profile->{secret} = shift @ARGV; |
227 | ++$cfg->{dirty}; |
227 | ++$cfg->{dirty}; |
228 | }, |
228 | }, |
229 | gensecret => sub { |
229 | gensecret => sub { |
230 | $profile->{secret} = AnyEvent::MP::Base::asciibits AnyEvent::MP::Base::nonce 64; |
230 | $profile->{secret} = AnyEvent::MP::Kernel::alnumbits AnyEvent::MP::Kernel::nonce 64; |
231 | ++$cfg->{dirty}; |
231 | ++$cfg->{dirty}; |
232 | }, |
232 | }, |
233 | delsecret => sub { |
233 | delsecret => sub { |
234 | delete $profile->{secret}; |
234 | delete $profile->{secret}; |
235 | ++$cfg->{dirty}; |
235 | ++$cfg->{dirty}; |