From 42c3fc18e894841e6578b5814405b41946b64639 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sun, 9 Sep 2012 03:33:09 +0200
Subject: wibble

---
 lib/Fripost/Schema/Misc.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/lib/Fripost/Schema/Misc.pm b/lib/Fripost/Schema/Misc.pm
index be88385..384f919 100644
--- a/lib/Fripost/Schema/Misc.pm
+++ b/lib/Fripost/Schema/Misc.pm
@@ -96,9 +96,9 @@ sub email_valid {
     my %options = @_;
 
     my $i = $in;
-    $i =~ s/.*<([^>]+)>.*/$1/;
+    $i =~ s/^[^<>]+\s<([^>]+)>/$1/;
     my $mesg = $options{'-error'} // "Invalid e-mail";
-    $in = $options{'-prefix'}.$in if defined $options{'-prefix'};
+    $in = $options{'-prefix'}.$i if defined $options{'-prefix'};
 
     my $addr = Email::Valid::->address( -address => $in,
                                         -tldcheck => 1,
@@ -106,6 +106,7 @@ sub email_valid {
     my $match = defined $addr;
     $match &&= $addr eq $in  if $options{'-exact'};
     die $mesg." ‘".$i."‘\n" unless $match;
+    $addr =~ s/^$options{'-prefix'}// if defined $options{'-prefix'};
     return $addr;
 }
 
-- 
cgit v1.2.3