@@ -, +, @@ --- Koha/Email.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) --- a/Koha/Email.pm +++ a/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; --