From d586881f81e74f7c22a2d11094f38634933a558a Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Mon, 14 Sep 2015 01:20:53 +0200
Subject: Pass literals by reference to save memory.

---
 interimap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'interimap')

diff --git a/interimap b/interimap
index 1535739..e7cd6d5 100755
--- a/interimap
+++ b/interimap
@@ -971,8 +971,8 @@ sub sync_known_messages($$) {
 sub callback_new_message($$$$;$$$) {
     my ($idx, $mailbox, $name, $mail, $UIDs, $buff, $bufflen) = @_;
 
-    my $length = defined $mail->{RFC822} ? length($mail->{RFC822})
-               : defined $mail->{BINARY} ? length($mail->{BINARY})
+    my $length = defined $mail->{RFC822} ? length(${$mail->{RFC822}})
+               : defined $mail->{BINARY} ? length(${$mail->{BINARY}})
                : return; # not for us
     if ($length == 0) {
         msg("$name($mailbox)", "WARNING: Ignoring new 0-length message (UID $mail->{UID})");
-- 
cgit v1.2.3