merging 7.1.4 changes
This commit is contained in:
parent
3d878c09c7
commit
aeba6ec83c
18 changed files with 92 additions and 73 deletions
|
|
@ -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,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue