merging 7.1.4 changes

This commit is contained in:
JT Smith 2006-11-03 04:36:13 +00:00
parent 3d878c09c7
commit aeba6ec83c
18 changed files with 92 additions and 73 deletions

View file

@ -205,7 +205,10 @@ sub getNextMessage {
my $disposition = $part->head->get("Content-Disposition");
$disposition =~ m/filename=\"(.*)\"/;
my $filename = $1;
my $content = $body->as_string if (defined $body);
my $content = "";
if (defined $body) {
$content = $body->as_string;
}
next unless ($content);
push(@segments, {
filename=>$filename,