1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Fripost/Schema/Util.pm b/lib/Fripost/Schema/Util.pm
index b26214b..2692421 100644
--- a/lib/Fripost/Schema/Util.pm
+++ b/lib/Fripost/Schema/Util.pm
@@ -116,7 +116,10 @@ sub email_valid {
                                         -fqdn => 1 );
     my $match = defined $addr;
     $match &&= $addr eq $in if $options{'-exact'};
-    die $mesg." ‘".$i."’\n" unless $match;
+    unless ($match) {
+      return if $options{'-nodie'};
+      die $mesg." ‘".$i."’\n";
+    }
     $addr =~ s/^$options{'-prefix'}// if defined $options{'-prefix'};
     return $addr;
 }