|Subject:||MIME::Head recommend_filename doesn't handle whitespace names|
When parsing a MIME stream that has no filename set and a name set to " " (that is just whitespace) the recommended_filename return " " as well. This causes the Parser.pm to error when writing the body to the filesystem. write-open /tmp/msg-1082826762-60134-0/ : Is a directory at /usr/local/lib/perl5/site_perl/5.6.1/MIME/Body.pm line 414. The patch included returns undef for any names that include only whitespace. I am not a strong Perl programmer so their is probably a more efficient way to do this.
--- Head.pm.orig Sat Apr 24 10:02:27 2004 +++ Head.pm Sat Apr 24 10:00:55 2004 @@ -771,7 +771,7 @@ ### No? Okay, try to get 'name' from the 'content-type': $value = $self->mime_attr('content-type.name'); - return $value if (defined($value) and $value ne ''); + return $value if (defined($value) and $value ne '' and !($value =~ /^\s+$/)); ### Sorry: undef;