in reply to
Here is a patch I added to Email::Valid to help with AOL addresses. I submitted it to the author, but don't think it was added. Someone else may find it useful. The issue I had was people from AOL putting in email addresses as me@aol, since many of them seem to think AOL *is* the internet. The project I was working on needed to validate email addresses for a mailing list, so Email::Valid was great, and adding this patch helped me a bit.
--- Valid.pm Fri Jul 9 01:34:55 1999
+++ Valid.pm.new Wed May 10 11:03:20 2000
@@ -186,6 +186,9 @@
my $self = shift;
my $addr = shift;
+ # Since many AOL users think AOL _is_ the internet
+ # they sometimes leave off the .com, so let's help them
+ $addr .= ".com" if $addr =~ /aol$/i;
$addr =~ s/\s+//g if $addr =~ /aol\.com$/i;
$addr =~ s/,/./g if $addr =~ /compuserve\.com$/i;
@@ -431,7 +434,9 @@
Specifies whether calls to address() should attempt to correct
common addressing errors. Currently, this results in the removal of
spaces in AOL addresses, and the conversion of commas to periods in
-Compuserve addresses. The default is false.
+Compuserve addresses. This will also tack on a .com to AOL addresses
+which fail to have them, ie. user@aol which is common for AOL users t
+do. The default is false.
=item fqdn ( <TRUE>|<FALSE> )