Lines Matching refs:unless
146 usage() unless $file and $command and defined &{$dbmc::{$command}};
172 $psf = $_, last unless $?;
185 genseed() unless @range;
193 $salt = saltpw_crypt unless $salt;
198 genseed() unless @range;
204 $salt = saltpw_md5 unless $salt;
227 unless($not_unix) {
238 system "stty echo" unless $not_unix;
240 die "Can't use empty password!\n" unless length $pwd;
245 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};
258 die "Can't use empty password!\n" unless $crypted_pwd;
259 unless($is_update) {
273 die "They don't match, sorry.\n" unless getpass("Re-type new password:") eq $value;
279 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};
288 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};