CC: | www [...] rjbs.manxome.org |
Subject: | Bug with 2 dots in Email::Address |
Date: | Fri, 10 Apr 2009 16:10:35 +0300 |
To: | bug-Email-Address [...] rt.cpan.org |
From: | Oleg Savchuk <dev040_osa [...] mail.ua> |
Distribution name and version: Email-Address-1.889
Perl version: 5.8.8.817
Operating System: all platforms (Linux and Windows)
Problem description:
If I try to parse email with 2 dots I got partial email.
Example:
qqq www <yana..kor@mail.ua> => kor@mail.ua
yana.(test).kor@mail.ua => kor@mail.ua
I've compared parsing results with Mail::Address and got the following:
Email::Address
$VAR1 = [
bless( [
undef,
'kor@mail.ua',
'',
'kor@mail.ua',
[
\'qqq www <yana..kor@mail.ua>, yana.(test).kor@mail.ua',
'0'
]
], 'Email::Address' ),
bless( [
undef,
'kor@mail.ua',
'',
'kor@mail.ua',
[
$VAR1->[0][4][0],
'1'
]
], 'Email::Address' )
];
Mail::Address
$VAR1 = [
bless( [
'qqq www',
'yana..kor@mail.ua',
''
], 'Mail::Address' ),
bless( [
'',
'yana..kor@mail.ua',
'(test)'
], 'Mail::Address' )
];
Could you please fix this in Email::Address module?
Thanks,
Oleg Savchuk
www.osa.mail.ua