From eb6b971fbd5ef3f9bd76770262da5808cf8c506a Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Tue, 6 Oct 2015 02:25:56 +0200
Subject: [PATCH] Fix byte count for compression streams.

---
 Changelog                 | 2 ++
 lib/Net/IMAP/InterIMAP.pm | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changelog b/Changelog
index 7a36711..f2b0bfc 100644
--- a/Changelog
+++ b/Changelog
@@ -1,5 +1,7 @@
 interimap (0.3) upstream;
 
+  * Fix byte count for compression streams.
+
  -- Guilhem Moulin <guilhem@guilhem.org>  Mon, 28 Sep 2015 01:16:47 +0200
 
 interimap (0.2) upstream;
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 721597d..8b1f451 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -485,11 +485,11 @@ sub stats($) {
     $msg .= ' recv '._kibi($self->{_OUTCOUNT});
     $msg .= ' (compr. '._kibi($self->{_OUTRAWCOUNT}).
             ', factor '.sprintf('%.2f', $self->{_OUTRAWCOUNT}/$self->{_OUTCOUNT}).')'
-      if defined $self->{_Z_DEFLATE} and $self->{_OUTCOUNT} > 0;
+      if exists $self->{_Z_DEFLATE} and $self->{_OUTCOUNT} > 0;
     $msg .= ' sent '._kibi($self->{_INCOUNT});
     $msg .= ' (compr. '._kibi($self->{_INRAWCOUNT}).
             ', factor '.sprintf('%.2f', $self->{_INRAWCOUNT}/$self->{_INCOUNT}).')'
-      if defined $self->{_Z_DEFLATE} and $self->{_INCOUNT} > 0;
+      if exists $self->{_Z_DEFLATE} and $self->{_INCOUNT} > 0;
     $self->log($msg);
 }
 
-- 
2.39.2