diff options
Diffstat (limited to 'lib/Fripost/Schema.pm')
-rw-r--r-- | lib/Fripost/Schema.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Fripost/Schema.pm b/lib/Fripost/Schema.pm index 36b7d54..3e89e6c 100644 --- a/lib/Fripost/Schema.pm +++ b/lib/Fripost/Schema.pm @@ -25,6 +25,7 @@ use Fripost::Schema::Mailbox; use Fripost::Schema::Alias; use Fripost::Schema::List; use Fripost::Schema::Local; +use Net::IDN::Encode qw/email_to_ascii/; =head1 METHODS @@ -83,7 +84,10 @@ sub auth { my $mesg = $self->ldap->bind( $self->whoami, password => $pw ); if ($mesg->code) { - die $cfg{'-die'}."\n" if defined $cfg{'-die'}; + if (defined $cfg{'-die'}) { + return unless $cfg{'-die'}; + die $cfg{'-die'}."\n"; + } die $mesg->error; } return $self; |