From 30b83f9ada3266c68198578c0aea4bb7ad90e935 Mon Sep 17 00:00:00 2001 From: Ougi Date: Fri, 10 Nov 2023 16:02:26 +0300 Subject: [PATCH] refactor validate address --- TestProject/lib/TestProject.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/TestProject/lib/TestProject.pm b/TestProject/lib/TestProject.pm index d896f6b..ba12741 100644 --- a/TestProject/lib/TestProject.pm +++ b/TestProject/lib/TestProject.pm @@ -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') }