about summary refs log tree commit homepage
path: root/lib/PublicInbox/Filter.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2015-08-29 21:30:27 +0000
committerEric Wong <e@80x24.org>2015-08-29 21:35:39 +0000
commit28ee19c32a1ecf8e22f30e8f9de860695f4fb30c (patch)
tree40a372c8d3c61d7e2917d0b4c981ae61df0e0397 /lib/PublicInbox/Filter.pm
parent26e69c85938c62774f20fd1861b67bcb01ba477d (diff)
downloadpublic-inbox-28ee19c32a1ecf8e22f30e8f9de860695f4fb30c.tar.gz
Perl does not currently optimize for this.

ref (from p5p):
http://mid.gmane.org/D5C27970-9176-4C7A-8B99-7D78360E67A2@pobox.com
Diffstat (limited to 'lib/PublicInbox/Filter.pm')
-rw-r--r--lib/PublicInbox/Filter.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/Filter.pm b/lib/PublicInbox/Filter.pm
index 0b1ec911..c0985ddd 100644
--- a/lib/PublicInbox/Filter.pm
+++ b/lib/PublicInbox/Filter.pm
@@ -211,7 +211,7 @@ sub collapse {
         $mime->header_set('Content-Type', $part->content_type);
         $mime->body_set($part->body_raw);
         my $cte = $part->header('Content-Transfer-Encoding');
-        if (defined($cte) && length($cte)) {
+        if (defined($cte) && $cte ne '') {
                 $mime->header_set('Content-Transfer-Encoding', $cte);
         }
         mark_changed($mime);