aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost/Schema.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Fripost/Schema.pm')
-rw-r--r--lib/Fripost/Schema.pm6
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;