From 7b81775603b8208c995cd1c4a15cd2a287009404 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Tue, 29 Jan 2013 02:37:58 +0100
Subject: Bug fixes.

---
 lib/Fripost/Schema/Auth.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'lib/Fripost/Schema/Auth.pm')

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;
-- 
cgit v1.2.3