wibble

1 files changed, 3 insertions, 2 deletions

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;
 }