diff options
author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2013-01-29 02:37:58 +0100 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2013-01-29 02:37:58 +0100 |
commit | 7b81775603b8208c995cd1c4a15cd2a287009404 (patch) | |
tree | f8946c7eff5b1c8de2e3b6ee7944f8e5180891cc /lib/Fripost/Schema/Auth.pm | |
parent | ae6b8a2905bfc7905030479e06f3490f2c901099 (diff) |
Bug fixes.
Diffstat (limited to 'lib/Fripost/Schema/Auth.pm')
-rw-r--r-- | lib/Fripost/Schema/Auth.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/Fripost/Schema/Auth.pm b/lib/Fripost/Schema/Auth.pm index c6325b8..d9c0267 100644 --- a/lib/Fripost/Schema/Auth.pm +++ b/lib/Fripost/Schema/Auth.pm @@ -253,10 +253,7 @@ converted to ASCII. sub mail2dn { my $self = shift; - my $user = shift // return; - - $user =~ s/^([^\@]+)$/\@$1/; - my ($l,$d) = split_addr($user, -encode => 'ascii'); + my ($l,$d) = split_addr(shift, -encode => 'ascii') or return; my @dn = ({fvd => $d}, @{$self->suffix}); unshift @dn, {fvl => $l} if $l; |