Subject: | Some Japanese mobile phone email addresses cannot be extracted |
When sending email using MIME::Lite some (strange, but valid) email addresses cannot be parsed and the send fails.
These email addresses are frequently used by Japanese mobile phone users, and can look like xxxxxxxx..k-k..forever..n@yy.dion.ne.jp .
Error message is:
can't extract address at <..k-k..forever..n@yy.dion.ne.jp> in <xxxxxxxx..k-k..forever..n@yy.dion.ne.jp>
I assume that the consequtive dots confuse the module.
Attached is a test file with two such addresses.
MIME::Lite version is 3.01. Perl is v5.8.1-RC3 built for darwin-thread-multi-2level and v5.8.5 built for i686-linux.
use Test::More tests => 4;
BEGIN{
use_ok 'MIME::Lite';
}
# test if Japanese mobile phone addresses can be extracted
foreach (qw[
simple@org.org
xxxxxxxx..k-k..forever..n@yy.dion.ne.jp
xhi-abcd-ki.daisuki...@docomo.ne.jp
])
{
ok ( MIME::Lite::my_extract_addrs($_), $_ );
}