diff options
author | lpsolit%gmail.com <> | 2007-01-06 22:14:59 +0000 |
---|---|---|
committer | lpsolit%gmail.com <> | 2007-01-06 22:14:59 +0000 |
commit | f831ad08bc165c3b6ca609c1798bab7285bdbbd7 (patch) | |
tree | 8776e140f6a6fbdf04ee9b7224012ca310a5e850 | |
parent | 4b060796419ff0beb29ea512c76ceb0612680c48 (diff) | |
download | bugs-f831ad08bc165c3b6ca609c1798bab7285bdbbd7.tar bugs-f831ad08bc165c3b6ca609c1798bab7285bdbbd7.tar.gz bugs-f831ad08bc165c3b6ca609c1798bab7285bdbbd7.tar.bz2 bugs-f831ad08bc165c3b6ca609c1798bab7285bdbbd7.tar.xz bugs-f831ad08bc165c3b6ca609c1798bab7285bdbbd7.zip |
Bug 362996: email_in.pl throws warnings of uninitialized values when no content-type is given - Patch by Bill Barry <after.fallout@gmail.com> r=mkanat a=myk
-rw-r--r-- | email_in.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/email_in.pl b/email_in.pl index f90bdcd8b..40474afaf 100644 --- a/email_in.pl +++ b/email_in.pl @@ -269,7 +269,7 @@ sub debug_print { sub get_body_and_attachments { my ($email) = @_; - my $ct = $email->content_type; + my $ct = $email->content_type || 'text/plain'; debug_print("Splitting Body and Attachments [Type: $ct]..."); my $body; @@ -294,7 +294,7 @@ sub get_text_alternative { my @parts = $email->parts; my $body; foreach my $part (@parts) { - my $ct = $part->content_type; + my $ct = $part->content_type || 'text/plain'; debug_print("Part Content-Type: $ct", 2); if (!$ct || $ct =~ /^text\/plain/i) { $body = $part->body; |