#eventually should check a "password-encoding" field
if ( length($self->_password) == 13
|| $self->_password =~ /^\$(1|2a?)\$/
- || $self->_password =~ /^(\*|NP|\*LK\*)$/
+ || $self->_password =~ /^(\*|NP|\*LK\*|!!?)$/
)
{
$self->_password;
} else {
- my $encryption = scalar(@_) ? shift : 'crypt';
+ my $encryption = ( scalar(@_) && $_[0] ) ? shift : 'crypt';
if ( $encryption eq 'crypt' ) {
crypt(
$self->_password,