diff options
| author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-10 20:01:06 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-10 20:01:06 +0200 |
| commit | eaacbeb2d5fece7fe9cab570f262a8f29be96863 (patch) | |
| tree | 8d77aa2d9a4add00265cd729934deb3af6726fd8 /lib/Fripost/Schema.pm | |
| parent | 3cc6e0f15836c94338762c364c1d451755dc261b (diff) | |
Internationalization.
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; |