From 35c4ad13a52bdcaab251358e4b7df99dd852c76d Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sun, 20 Jan 2013 03:04:17 +0100
Subject: New domains.

---
 lib/Fripost/Schema/Util.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

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