Pass literals by reference to save memory.

1 files changed, 2 insertions, 2 deletions

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})");