Bug 362996: email_in.pl throws warnings of uninitialized values when no…

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

Bug 362996: email_in.pl throws warnings of uninitialized values when no…
f831ad08 · lpsolit%gmail.com · 4b060796 · f831ad08
Commit f831ad08 authored Jan 06, 2007 by lpsolit%gmail.com
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

email_in.pl email_in.pl +2 -2

No files found.
--- 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;