| Subject: | Mail::Message::Head::isMultipart returns list in list context |
Mail::Message::Head::isMultipart could return list since it returns result of regexp match which is context-sensitive. This is none of real importance but gives warning "Odd number of elements in anonymous hash" in case of constructing hashes, such as:
{ mpart => $msg->isMultipart }
Possible change is:
--- Head.pm.orig 2004-07-31 17:10:37.000000000 +0400
+++ Head.pm 2004-09-02 13:04:29.562500000 +0400
@@ -161,7 +161,7 @@
sub isMultipart()
{ my $type = shift->get('Content-Type');
- $type && $type->body =~ m[^multipart/]i;
+ $type && scalar $type->body =~ m[^multipart/]i;
}
#------------------------------------------
Thanks.