refactor validate address

This commit is contained in:
Ougi 2023-11-10 16:02:26 +03:00
parent 38342df5cf
commit 30b83f9ada

View file

@ -14,7 +14,7 @@ qr((?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-
sub validate_address {
my $address = shift;
if ( $address =~ $regex_for_email ) {
return 1
return (1,'')
}
return (0,'Invalid message')
}