From 5a4a075eeb079abe24d3e36019e75b70f03f9ca7 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 --- 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.30.2