From 75372a5e3eeb1bdd5a143f3e0a2cc71fb3a5f96f 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 --- Koha/Email.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Koha/Email.pm b/Koha/Email.pm index db897e07896..4806126217c 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.25.1