From 27affe637a5a6d90fc3c15724cc018ac5e5b1477 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 26 Aug 2021 17:13:41 +0200 Subject: [PATCH] Bug 28870: Use Email::Address->parse Signed-off-by: Tomas Cohen Arazi Signed-off-by: Martin Renvoize Signed-off-by: Nick Clemens Signed-off-by: Jonathan Druart --- Koha/Email.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Koha/Email.pm b/Koha/Email.pm index db897e0789..4806126217 100644 --- a/Koha/Email.pm +++ b/Koha/Email.pm @@ -184,7 +184,8 @@ Return true is the email address passed in parameter is valid following RFC 2822 sub is_valid { my ( $class, $email ) = @_; - return ($email =~ m{$Email::Address::mailbox}) ? 1 : 0; + my @addrs = Email::Address->parse($email); + return @addrs ? 1 : 0; } 1; -- 2.39.5