I am trying to make a new release ready and I noticed that this test in t/qpsmptd-address.t still fails:
$as = '[EMAIL PROTECTED]'; ok ($ao = Qpsmtpd::Address->parse($as), "parse $as"); is ($ao && $ao->address, $as, "address $as");
Whether it was intended to or not, Q::A->parse() requires delimiters (<>) around the address, since it just calls canonify() under the hood:
sub canonify {
...
# strip delimiters
return undef unless ($path =~ /^<(.*)>$/);
$path = $1;
...So either you fix the test:
$as = '<[EMAIL PROTECTED]>';
or you change canonify:
# strip delimiters
$path =~ /^<?(.*)>?$/;
$path = $1;Your choice...
John
